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DRILL AND PRACTICE • BY RICHARD H. TURPIN 

9 

The ease of number conversion in Forth is at the heart of this simple drill-and-practice program from a course in digital 
3 design. Beginning Forth programmers will find examples of variables, printing to the screen, receiving keyboard responses, 
g and comparison operations. Typical of many Forth applications is the ease with which variations can be generated — try 
(i it! 



MATCHPOINT • BY J. BROOKS BREEDEN 
12 

L. One strength of computer-assisted instruction (CAI) is repetition. But a quiz should not ask questions in the same order 
jl every time, or students may learn the test rather than the subject matter. This paper describes a simple method for thoroughly 
(•) "scrambling" a multiple-choice, matching CAI quiz, using an example based on highway superelevation. 
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THE VISIBLE FORTH • BY RICH FRANZEN 
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This decompiler displays source code along with the addresses for each element. Use it to explore Forth's dictionary 
structure, and to write quick patches. The author compares its power to both a sledgehammer and a jeweler' s screwdriver. 

ANS FORTH MEETING NOTES • BY JERRY SHIFRIN 

27 

Last August, the ANS Forth Technical Committee (X3/I14) met for the first time. Many leaders of the Forth community 
were present, including Elizabeth Rather as acting chairperson. The effort was described as documenting common practice, 
not as using this standard as an instrument for change. 
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30 

1 Forth allows users of the TI 99/4A to operate in high resolution without assembly language. But the transcendental func- 
t tions used by graphics compete — disastrously — with the bit-map color table for work space! A sine table will work, but 
9) Bumgamer's method of trig derivation is better. Add major changes to the graphics commands, and GRIDPLOT is bom. 
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Lwo articles this month will help you to 
dabble with Forth-based CAI (computer- 
assisted instruction): Breeden's "Match- 
point" is a bite-sized portion of a full- 
featured CAI engine. It deals with an inter- 
esting problem for CAI designers. Those 
with little experience in Forth, or with less 
interest in CAT, may prefer experimenting 
with the simpler "Drill and Practice" code 
by Turpin. A number of enhancements 
suggest them selves that would be good pro- 
gramming exercises for beginners. 

If you are one of those who sits on the 
bench, listening to Forth hackers and 
understanding some of their theory, but 
with little personal experience spelunking 
in Forth's murkier depths, "The Visible 
Forth" may be a good way to take your first 
plunge. It's a decompiler, which is good for 
starters, but the more you use it, the more it 
reveals about what makes your Forth tick 
(or Pretty soon, you'll be hacking 
around and messing up control structures 
with the best of 'em. And probably jotting 
down ideas for another better NEXT (or TO, 
or LOOP, or CASE...). 

Martin Tracy called to make sure our 
readers know that the ANS Forth Technical 
Committee is accepting technical propos- 
als. Mail proposals to Martin (acting secre- 
tary) at FORTH, Inc., Ill N. Sepulveda 
Blvd. , Manhattan Beach, California 90266. 
And look for Martin ' s ne w Forth column in 
Dr. Dobb's Journal of Software Tools' 
October issue. 

An upcoming event of interest: this 
year's Forth convention will mark a ten- 
year anniversary, an excellent time not only 
to see where Forth has come from, but to 



discuss and learn more about where it is 
headed. Convention organizers have 
scheduled presentations by key people 
from Forth's history, and by those who are 
now shaping the language's next decade. 

But don'twaitun til then to join the FIG- 
sponsored "RoundTable" (e.g., special- 
interest area) on GEnie, General Electric's 
information service. It features an 
extensive library of Forth software, real- 
time chats with other on-line Forth pro- 
grammers, a FIG Chapters section, and an 
area for public messages. Like similar net- 
works, you can call this one from most parts 
of the U.S. via a local phone call, and GE 
plans to expand its international service. 

Many thanks to sysops Dennis Ruffer, 
Scott Squires, Gary Smith, and John Hall, 
for their work getting the Forth 
RoundTable ready for use. Let them know 
what you think. Many of the files are from 
the East Coast Forth Board, graciously 
donated by Jerry Shifrin as seed material. 
(Before you dive unprepared into the 
GEnie discussion of Forth standards, check 
Jerry's notes in this issue from the first 
meeting of the ANS Forth committee.) 

For details of the November Forth Con- 
vention, and of GEnie' s sign-up offer for 
FIG members, refer to the FIG ads else- 
where in this issue. And don't forget 
FORML — see you there! 

— Marlin Ouverson 

Editor 
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Letters 



Fractal's Dimension 

Dear Marlin, 

First, let me congratulate you on the 
new look of ForthDimensions. The cover is 
particularly striking, and the style is quite 
effective. 

I particularly enjoyed the article on 
fractal landscapes, which I have awaited 
eagerly since I saw it demonstrated at the 
last FORML conference. The waves were a 
nice touch. 

Unfortunately, I could not find Figures 
One-a to One-d referred to in the article. 

Most importantly, I would like to point 
out that the third paragraph of the article is 
somewhat misleading. A fractal is an object 
with a fixed dimension. As the article 
stated, most coastlines have lengths which 
increase as we measure them with finer and 
finer precision. However, the dimension of 
the coastline remains fixed. 

Perhaps all will become clearer if I de- 



Figure la 




Figure lb 



Fractal Landscapes Figures. 



fine a version of fractional dimension 
known as "capacity." Cover the fractal F 
with a number of balls (or disks), each of 
diameter d. Count the number of balls, then 
let d get smaller, and count the minimum 
number of balls of the new diameter it takes 
to cover F; continue in this manner. If N(d) 
is the number of balls of diameter d it takes 
to cover F, then the capacity, or dimension, 
of the fractal may be defined as the follow- 
ing limit: 

limit log N(d) 
d-» -log d 

As a simple e xample, consider the 
Cantor set C, which is a fractal created by 
removing the middle third from the unit 
interval [0,1], then removing the middle 
third (of length 1/9) from each of the re- 
maining intervals [0,1/3] and [2/3,1], and so 
on. Now it takes two balls (or intervals) of 
diameter 1/3 to cover C, while it takes four 




Figure Id 



balls of diameter 1/9 to cover C. In general, 
2° balls of diameter 1/3" will cover the set. 
Thus, the dimension of C is log 2/log 3. 

There are other notions of dimension, 
such as the classical Hausdorff Dimension, 
in which one covers the set with convex 
sets rather than balls, but the above defini- 
tion is one of the simplest 

On another topic, I converted Mr. 
Koopman's excellent source code to F83. 1 
used my own F83 assembler version of 
Bresenham's Une-drawing algorithm for 
the PC, and added the ability to save and 
restore pictures to and from disk (also in 
assembler), as well as a menu with a few 
other options. 

Thanks, 
Mark Smiley 

Department of Mathematics 
Auburn University at Montgomery 
Montgomery, Alabama 36193-0401 

Brand Name Dropping 

Dear Mr. Ouverson, 

I am composing a Ust of commercially 
available software that is (or was at one 
time) written using Forth. I request anyone 
knowing of such products to contact me via 
the East Coast Forth BBS (703-442-8695) 
or at my address below. Also, the source of 
the information should be included (e.g., 
"Rapidfile," per Ashton-Tate's 3/87 Tech- 
notes). Following is my list to date: 

VP-Planner 
Zoomracks I & II 
VALDOCS 
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$25 
$20 
$25 
$15 
$25 
$15 
$20 
$50 
$30 



FORTH SOURCE^ 



wise CPU/16 

The stack-oriented "Writeable Instruction Set 
Computer" (WISC| is a new way of harmonizing the 
hardware and the application program with the 
opcode's semantic contenl. Vastly improved 
throughput is the result. 

Assembled and tested WISC for 

IBM PC/AT/)fT $1500 

Wirewrap Kit WISC for IBM PC/AT/XT $ 900 

WISC CPU/16 manual $ 50 

MVP-FORTH 

Stable - Transportable - Public Domain - Tools 
You need two primary features in a software 
development package. . . a stable operating system 
and the ability to move programs easily and quickly 
to a variety of computers. MVP-FORTH gives you 
both these features and many extras. 
MVP Books - A Series 

□ Vol. 1, All about FORTH. Glossary 

□ \tol. 2, MVP-FORTH Source Code. 

□ Vol. 3, Floating Point and Math 

□ Vol. 4, Expert System 

□ Vbl. S, File Management System 

□ W. 6, Expert Tutorial 

□ Vol.1, FORTH GUIDE 

□ m.t, MVP-FORTH PADS 

□ Vol. 9, WorklKalc Manual 
MVP-FORTH Software - A trans- 
portable FORTH 

□ MVP-FORTH Programmer's Kit including 
disk, documentation. Volumes 1 , 2 & 7 of MVP 
Series. FORTH Applications, and Starting 
FORTH, IBM, Apple, Amiga, CP/M, MS-DOS, 
PDP-11 and others. Specify. $195 

□ MVP-FORTH Enhancement Package 
for IBM Programmer's Kit. Includes full screen 
editor & MS-DOS file interface. $110 

□ MVP-FORTH Floating Point and Math 

□ IBM, □ Apple, or □ CP/M, 8'. $75 

□ MVP-LIBFORTH for IBM. Four disks of 
enhancements. $25 

□ MVP-FORTH Screen editor for IBM $15 

□ MVP-FORTH Graphics Extension for 

□ IBM or □ Apple $80 
MVP-FORTH PADS (Professional 
Applicitlon Development System) 

An integrated system for customizing your 
FORTH programs and applications. PADS is a 
true professional development system. Specify 
Computer; □ IBM □ Apple $500 

□ MVP-FORTH Floating Point Math $100 

□ MVP-FORTH Graphics Extension $80 

□ MVP-FORTH EXPERT-2 System 

for learning and developing knowledge based 
programs. Specify □ Apple, □ IBM, or 

□ CP/M 8*. $100 

Order Numbers: 
800-321-4103 

(In California) 415-961-4103 



□ 



FREE 
CATALOG 



MOUNTAIN VIEW 
PRESS 

PO DRAWER X 
Mountain View, CA 94040 



Pan-Center 
Alpine Encounter 
Total Music 
General Ledger 
Easywriter 
Expert-2 

Telescan Analyzer 

Micro- Aid/05 

EasySD 

Quartet 

Tradeshow 

Delta Draw 

Game Designer 

Rapidfile 

Neon 

Starflight 

Typing Tutor III 

Amnesia 

Back to Basics 

Forthwrite 

Assyst 

Abundance 

META 

8051SIM 

Chipwits 

Race Car Simulator 
Pro 3D 
Disk Labeler 

Thank you, 
Michael Nemeth 
10025 Locust Street 
Glenn Dale. MD 20769 

[Editor' s note: We have no way at this time 
of verifying all the items in the above list, so 
we can make no claims for its accuracy. 
More information will make it better and 
more complete, so if you know of some- 
thing to add, correct, or annotate somehow, 
send Michael a note. We think anything 
approaching a complete list would be very 
useful, even illuminating.] 

Run DOS Files in F83 
Dear Editor, 

I would like to contribute a method to 
run F83 programs written in standard PC- 
DOS text files. 

Like many users of Laxen and Perry's 
F83 Forth, I immediately looked for a way 
to write programs with my favorite text 
editor (PC- Write). Conversion of ASCII 
text files to Forth blocks, and vice versa, is 
not built into F83. Some very nice pro- 
grams to do so have appeared in Forth 



Dimensions (e.g., "Screenless Forth," 
Vin/5). 

It is possible, however, to run programs 
written in ASCII text files without any 
addition to F83. To do so, simply redirect 
the input stream to come from the text file. 

There are two catches: In the text file, an 
end-of-line usually takes the form of a 
carriage-retum/line-feed. F83 expects only 
a carriage-return. If you use PC-Write as an 
editor, then it is a simple matter to remove 
all line-feeds from the file. The second 
problem to overcome is inherent in the use 
of I/O redirection. At the end of the text file, 
F83 will wait for more input from the file. 
This can cause a "hanging" of the system. 
You can solve this by including a SAVE- 
SYSTEM and a bye at the end of the text 
file. 

Below is a simple example of how the 
method works. The textfile MYPROG . TXT 
contains a Forth program followed by the 
SAVE-SYSTEM and BYE. The resulting 
Forth system, MYF0RTH.COM, contains 
an executable version of the program: 

MYPROG.TXT, the ASCII text of the 
Forth program: 

: binary ( — ) 22 base ! ; 

save-system myforth.com 
bye 

DOS commands to get an executable ver- 
sion of MYPROG: 
f83 < myprog.txt 
myf orth 

A good, full-screen editor for the Forth 
environment is still preferable, but this is a 
handy workaround. I hope others will bene- 
fit from it. 

Yours sincerely, 
Richard de Rozario 
Unit 8, 6 Waverton Avenue 
Waverton, Sydney 2060 
Australia 



F83 Gets Gregorian 

Finally, Matt Wilson from Yagoona, Aus- 
tralia, sent his F83 version of Allen 
Anway's Gregorian date routine (FD IXI 
I ), "...together with enough to get a calen- 
dar listing." Further elaborations, anyone? 
—Ed. 
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Wilson's F83 calendar screens: 



1 

\ ptrpituil cilendir priiitivcs FDIl(lp34 NRHe7JUlll 
t 

2 t BRE6DAY (S year lonth diy - ud ) 

3 ROT ( H« DD YY/YYYY ) 

4 DUP 100 < IF 1900 + THEN 

5 ROT ( DD YYYY HH ' special, priv year 

6 DUP 3 < IF 12 + S«AP 

7 1- SKAP THEN 

8 2- 3059 100 1/ ( lonth calc. ) 

9 ROT ( YYYY U DD ) 32 + + ( YYYY U ) ( YYYY UD ) 

10 ROT ( UD YYYY ) 

11 DUP 100 / NEBATE SWAP ( UD N YYYY) 

12 DUP 400 / ROT ♦ S>D ROT ( UD D YYYY) 

13 3652S mt 100 HU/nOD ( UD D lod UD ) 

14 ROT DROP D+ D+ ; ( UD ) 



6 

\ perpetual calendar priiitivei FDinp34 NRH87JUL11 

6RE6DAY by Allen Anitay 

Forth Diieniioni, Volute IX, Nuebcr 1, page 34, 

Sregorian Day N • Int(365.25y) + Int(y/400) - Int(y/100) 
♦ Int(30.59(e-2)) + d + 32 
Hhere January is tonth 13 of previous year, 
February is lonth 14 of previous year. 

Note that 0,59 lonth fraction can be any value between 
7/12 k 6/10. 

Thanks to N.C. Eliore, Ai. J. Phys. 44 482 (1976) (Hay issue) 
for the original foriula 



2 

\ perpetual calendar priiitives FDIl(lp34 HRHe7JULll 

1 i WEEKDAY (S UD - lod ) ( gregorian-day - 0-6 ) 

2 ( 0« Sunday, l*nonday, 2:Tuesday, etc. ) 

3 3 D+ 7 HU/HOD 2DR0P ; 
4 

5 1 NTH-SUNDAY (S year eonth week ~ dale ) 

6 7 t 1+ DUP ( Y H D D ) >R 

7 6RE5DAY WEEKDAY R> SWAP - ; 
8 

9 : DAYS/HONTH (S year eonth -- days ) 

10 2DUP 1^ 1 6REEDAY 2SWAP 1 BRE6DAY D- DROP ; 
11 

12 i .WEEKDATES (S year nnth day - ) 

13 >R DAYS/HONTH R> ( lastday day ) 

14 DUP 7 + SWAP DO DUP I 1 ROT BETWEEN IF 

15 I 4 .R ELSE 4 SPACES THEN LOOP DROP ; 

3 

\ perpetual calendar nRW87JULll 

1 : .DAYS ." Sun Hon Tue Wed Thu Fri Saf ; 
2 

3 ! .HONTH (S year lonth -- ) 

4 CR 2DUP ..'/•. CR .DAYS CR 6 DO 

5 2DUP 2DUP I NTH-SUNDAY .WEEKDATES CR LOOP 2DR0P ; 

6 : .YEAR (S year - ) 

7 DUP . CR 13 1 DO I 16 .R I I* 32 .R I 2* 32 ,R CR 

8 .DAYS 4 SPACES .DAYS 4 SPACES .DAYS CR 

9 6 DO ( for each Meek) 

10 J 3 ^ J DO t each aonth across page ) 

11 DUP I 2DUP J NTH-SUNDAY , WEEKDATES 4 SPACES 

12 LOOP CR ( end of line ) 

13 LOOP ( end of weeks ) 

14 3 >LOOP ( end of three lonth set ) 

15 DROP ; 



7 

\ perpetual calendar priiitives FDinp34 nRW87JULll 
WEEKDAY by Allen Anway. W ' (N^3)iod 7. 

(Since there is no range checking, certain liberties can be 
taken in the calendar calculations. They work.) 

NTH-SUNDAY returns the "date' of the nth Sunday in the eonth. 
The "date' lay be negative, or past end of eonth. 



DAYS/HONTH calculates the nuiber of days in the eonth 
by finding the difference in days between the 
first of this ionth and the first of the next eonth. 

.WEEKDATES prints the dates ior spaces) for a wttk. 
Spaces are printed for any dates outside the valid range 
for the ionth, thus allowing for coluin alignient. 



8 

\ perpetual calendar HRW87JUL11 
.DAYS for heading 

.HONTH to print a given ionth. 

The year and ionth stay on the stack for the loop. 

.YEAR to print a given year ( either YYYY or YY - assuies 19YY). 
Sorry for the lultiple nesting of loops, Betting the indices 
right is not difficult with bottoi-up coding, but 
looks horrible when coipleted. 
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FUTUnE86 

The Language 



Finally, A Rommable, High Level Language 
That Puts You In Complete Control! 

A World-Class Language with all these Outstanding and 
Advanced Features: 

• Produces extremely compact code with minimal overhead (less than 7kbyte 
min .COM file). Much smaller applications can easily be generated by cus- 
tomizing the kernal source code, (optional). 

• Very fast execution speed — Assembler speed if desired. 

• Best object readability of any high level language — Very desirable for real- 
time applications. 

• Complete Assembly language support including 80186/8 instructions. 

• Instantly mix Assembly language and high level statements in the same 
procedure without complex mode changes or awlward hooks. 

• Inherently recursive and reentrant. 

• DOS ERRORLEVEL support. 

• Unique and powerful string handling support. 

• 32-Bit addressing — Applications up to 64K code and data — an enormous 
F0T0RE86 application. ROMMED applications can be much larger! 

• Run other programs from within your program. 

• More than 500 integrated, useful library procedures for easy application generation. 

• Environment contains complete interactive symbolic debugging facilities. 

FUTORESe is a mature language — a/readj/ hard at work 
in thousands of diverse applications — worldwide! 
. . . and it is still being extended. 

FCITURESe is a compact, extensible language 
that lets you easily define your own high performance 
super language that is oriented to your application needs. 

FUTURE86 also includes these features: 

• Compiler compiles to machine code — Mo slow pseudo code interpreter. 

• Conditional compilation resources and "INCLUDE" statement for maximum 
versatility. 

• XENIX-Iike file access support. 

• Fast two-pass compiler allows forward symbolic referencing. 

• English-like commands without complex and cryptic syntax requirements 
typical of "C" or "Pascal". 

• Inherently structured for easy readability — self documenting code! 

• Extensive compiler and debugger error messages. 

• Complete with efficient and versatile linker. 

• Complete with comprehensive tutorial style manual containing complete 
procedure definitions and demo files that you can modify/compile/debug 
and run! 

» No royalty for turnkey applications. 

• Full technical support available. 

• Full featured editor/word processor included. 



Unique in all the world! 

For MSIDOS Machines 

Successful application examples: 

• Automatic Fbstal Scale. 

• Natural language compiler. 

• Food processing & handling equipment. 

• Family of multiuser terminal emulators. 

• High speed Kanji character printer. 

• Bar code and label software. 

Soon available ... libraries for grapliics and Hayes compatible protocol. 

FUT(IRE86 contains everything you need to create your 
applications in a satisfying, creative, time-efficient manner. 

FCrT(IRE86 is a fully-supported professional tool for serious 
applications. 

FUTURE86 - The best software investment 
your will ever make — Invest in your 
FUTURE today! 

Base System price (includes F(JTC1RE86 Compiler, 



Kernel, Debugger, Editor, Demo files and manual) $349.00 

Source code for Kernel $ 99.00 

Source code for Debugger $ 99.00 

8087 Floating Fbint Support (includes source) $ 99.00 

Software Floating Fbint Support (includes source) $ 99.00 

RS232 Library (includes source) $ 99.00 

Modem Library (includes source)* $ 99.00 

QENHEX .COM file to Intel Hex file converter 

(includes source) $ 99.00 

One year update support $ 99.00 

'RS232 Library is a prerequisite 

(All items include documentation) 
(All prices are F.O.B. our factory) 



Special Bundled System Price — Introductory Offer: 

Includes all modules listed above — an $1,141 value for only $375. 
Including one year update and technical support. Please note that this is 
a very Limited offer subject to withdrawal at any time. 



7b order or for more information call or write today: 

-wr^^ DEVELOPMENT ASSOCIATES 

J 7520 S. Lyon 
M ^ Santa Ana, CA 92705 

(714) 835 9512 CompuServe: 71460,1146 

Future86 is a trademark of RIGY Corpontion 

© 1987 RIGY Corporation / © 1987 DEVELOPMENT ASSOCIATES 
©MS/DOS is a trademark of Microsoft Corp. 
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FORTH-83 

DRILL-AND-PRACTICE 

NUMBER CONVERSION 

RICHARD H. TURPIN - STOCKTON, CALIFORNIA 



T 

A he ease with which the base for num- 
ber conversion is changed in Forth can be 
used to advantage in many applications. In 
the code listed below, this feature of Forth 
is at the heart of a drill-and-practice system 
for binary number conversion. It was used 
by students in an introductory digital de- 
sign course. In addition to giving the stu- 
dents practice in number conversion, it 
gavemeachanceto illustrateForthtothem. 
The application was originally written in 
fig-FORTH on an AIM 65 microcomputer, 
but has been rewritten in F83 for presenta- 
tion in this article. 

Lines 13 and 15 of screen 3 illustrate the 
basic idea used to implement the system. 
Variables out-base and in-base hold 
the bases to be used for interpreting output 
and input data, respectively. QU I z admini- 
sters the practice sessions by presenting 
numbers using OUT-BASE data as base, 
and interpreting answers using in-baSE 
data as base, until five correct responses 
have been given. 

The numbers needed for the practice 
sessions are derived by means of a random 
number generator defined in screen 1 , lines 
10 and II (see Burton, "The Game of 
Reverse," FD IU/5). SET-UP presents a 
number to the student, GET-answer re- 
ceives the student's response, and test- 
it evaluates the response. Because the 
original version was administered using the 
AIM 65 (with its single-line display), the 
quiz prompts were kept simple. One 
change that might make the drill system 
more user friendly would be to display the 
two reference bases as reminders for the 
student, and a count of correct answers. 



Of course, the really neat thing abut this 
code, typical of many Forth applications, is 
the ease with which variations can be gen- 
erated. Screen 4 gives several more quiz- 
zes, including two for conversion between 
hexadecimal and binary, and one from base 
three to base five (I dare you to try that 
one!). Some examples of the program dia- 



log are included, too. In the examples, 
underlined information is the program out- 
put, the rest is the student's response. 



Richard H. Turpin, PhD., isaprofes- 
sor of Electrical and Computer Engi- 
neering at the University of the Pacific. 



OPEN NUMBERS. BLK QK 
Type any key, please. 
ok 

BINARY. TO. DECIMAL 

IIQIOII 107 
CORRECT 

10000101 133 
CORRECT 

1 10001 1 99 
CORRECT 

101001 10 165 
ANSWER IS 166 



1101101 
CORRECT 
1011 1 100 
CORRECT 
5 CORRECT 
GOOD WORK I 



109 



188 



HEX. TO. DECIMAL 

CF 30b'7 
ANSWER IS 207 



39 
CORRECT 
10 

CORRECT 
62 

CORRECT 
C3 

CORRECT 
25 

CORRECT " 
u CORRECT 
GOOD WORK 



57 
16 
98 
19S 



ok 



ok 



HEX. TO. BINARY 

EE 11101110 
CORRECT 

AO 10100000 
CORRECT 

63 1 1 000 1 
ANSWER'Ts 1100011 

B6 10110110 
COR RECT 

CE 11001110 
CORRECT 

6E 01101110 
CORRECT 



BINARY. TO. OCTAL 



5 CORRECT 
GOOD WORK ! 



1011 100 
CORRECT 

101 OOOO 
CORRECT 
10101 100 
CORRECT 

1 1 1000 
CORRECT 

100 101 1 
CORRECT 
5 CORRECT 
GOOD WORK ! 



134 



120 



254 



70 



ii; 



ok 



ok 
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Drill and Practice in Nuiber Conversion 


01HAR86RHT 


1 \ hv Rirhsrd H Turnin 


1 • 


HEX. TO. BINARY 


16 OUT -BASE ! 


2 IN-BASE 1 


8UIZ ; 


2 \ Prat at Else Enor 


2 










3 \ Univ. ai the Pacific 


3 : 


BINARY. TO. HEX 


2 OUT-BASE ! 


16 IN-BASE ! 


QUIZ ; 


4 \ Stockton, CA 95211 


4 










5 \ 


5 : 


BASE3.T0.BASE5 


3 OUT-BASE ! 


5 IN-BASE ! 


QUIZ ; 


6 VARIABLE IN-BASE 


6 










7 VARIABLE OUT-BASE 


7 ; 


BINARY. TO. OCTAL 


2 OUT -BASE ! 


8 IN-BASE ! 


QUIZ ; 


8 VARIABLE SEED 


8 










9 CR ,( Type any key, please. ) CR KEY SEED 1 


9 : 


OCTAL.TO.BINARY 


8 OUT-BASE ! 


2 IN-BASE ! 


QUIZ ; 


10 : RND ( n ~ n ) 


10 










11 SEED S 259 « 3 + 32767 AND DUP SEED ! 32767 tl ; 


11 : 


DECIHAL.TO.HEX 


10 OUT-BASE ! 


16 IN-BASE ! 


QUIZ ; 


12 : GET-A-NUHBER ( ~ n ) 256 RND ; 


12 










13 : INPUT ( - d,a ) PAD 20 FILL 


13 : 


HEX.TO.DECIHAL 


16 OUT-BASE ! 


10 IN-BASE 1 


QUIZ ; 


14 PAD 10 EXPECT PAD 1- CONVERT ; 


14 










15 -> 

2 


15 


6 









\ Drill and Practice in Nuiber Conversion 01NARe6RHT 

1 : "NHAT 2DR0P CR .' KHAT? ' ; 
2 

3 : RESPONSE ( - n ) 

4 BEBIN INPUT Ci NHILE "NHAT REPEAT DROP ; 
5 

6 : 6ET-ANSNER ( - n ) IN-BASE i BASE ! RESPONSE j 
7 

8 : SHON-IT ( n - ) CR OUT-BASE * BASE ! 8 .R 3 SPACES ; 
9 

10 : CORRECT ( c.n - c+l ) CR DROP 1+ ." CORRECT " ; 
11 

12 : INCORRECT ( n -) CR ." ANSWER IS " . ; 
13 

14 ~> 
15 



\ Drill and Practice in Nuiber Conversion 0inAR86RHT 

1 : TEST-IT ( i.n - ) 

2 OVER = IF CORRECT ELSE INCORRECT THEN ; 
3 

4 : CONGRATS CR ."5 CORRECT " CR ." SOOD NORK! " ; 
5 

6 : SET-UP ( - n ) 8ET-A-NUNBER DUP SHON-IT ; 
7 

8 ! QUESTION ( c - c' ) SET-UP 6ET-ANSNER TEST-IT ; 
9 

10 : QUIZ BEGIN QUESTION DUP 5 - UNTIL DROP 

11 DECIMAL CONGRATS ; 
12 

13 : DECIMAL. TO.BINARY 10 OUT-BASE ! 2 IN-BASE ' QUIZ ; 
14 

15 : IINARY.TO.DECIHAL 2 OUT-BASE ! 10 IN-BASE ) QUIZ ; ~> 



0inAR86RHT 



Provides practice in conversion ai nuabers froi one 
base to another. 



Storage for base for data input interpretation. 

Storage for base for data output interpretation. 

Storage for randoi nuiber generator seed. Reference: Burton, 

THE SAME OF REVERSE, Forth Diiensions, Vol, III, No. 5. 

Key input at coipile tiie seeds randos nuiber generator. 

Get a nuiber for drill question. 
Accept response froi keyboard. 

Returns double no. and addr, of first nonconvertible char. 



01HAR86RHT 

Input nuieric response froi student. 
Reject invalid response and proipt ttith 'WHAT?'. 
(Character at address "a" froi INPUT lust be null character 
for good data.) Convert to single precision nuiber. 

Input student response and interpret using IN-BASE data . 

Output a nuiber to student. 

Use OUT-BASE data as base for data display. 

Response for a correct answr. DROP reference data. 

Response for an incorrect answer. Display reference data. 



(Continued on page 36.) 
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the ninth annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 27-29, 1987 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California, USA 

Theme; Forth and the 32-bit Computer 



Computers with large address space and 32-bit architecture are now generally available at indus- 
trial and business sites. Forth has been installed and Forth applications programs are running on 
these computers. Graphic displays and applications are currently demanded by users. Imple- 
mentation of Forth and meeting these requirements is a challenge for the Forth professional. 
Papers are invited that address relevant issues such as: 

Large address spaces in 32-bit computers. 
The graphic display, windows, & menu handling. 
Relation to operating systems, other languages, & networks. 
Control structures, data structures, objects, & strings. 
Files, graphics, & floating point operations. 
Comparison with 16-bit computers. 

Papers on other Forth topics are also welcome. Mail your abstract(s) of 100 words or less. 
Completed papers are due November 1, 1987. For registration information call the Forth Inter- 
est Group busmess office at (408) 277-0668 or write to FORML Conference. 

Asilomar is a wonderful place for a conference. It combines comfortable meeting and living ac- 
commodations with secluded forests on a Pacific Ocean beach. Registration includes deluxe 
rooms, all meals, and nightly wine and cheese parties. 

RESERVATIONS FOR NINTH FORML CONFERENCE 

Registration fees for conference attendees includes conference registration, coffee breaks, and notebook of pa- 
pers submitted, and for everyone rooms Friday and Saturday, all meals from lunch Friday through lunch Sun- 
day, wine and cheese parties Friday and Saturday nights, and use of Asilomar facilities. 

Conference attendee in double room - $275 • Non-conference guest in same room - $150 • Children under 17 in 
same room - $100 • Infants under 2 years old in same room - free • Conference attendee in single room - $325 

Send reservation requests to: 

FORML Conference, Forth Interest Group, P. O. Box 8231, San Jose, CA 95155 
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FORTH-83 

MATCHPOINT 

/. BROOKS BREEDEN - COLOMBUS, OHIO 



A 

■i- ^ major advantage of computer-as- 
sisted instruction (CAI) is that lessons may 
be repeated as often as the learner wishes, 
or until some prescribed "mastery level" 
has been attained. One of the methods used 
in CAI to improve retention of material is to 
quiz the learner on what has been pre- 
sented. Since the lesson can be repeated, to 
be effective a quiz should not ask the same 
questions in the same order every time. 
This paper describes a simple method for 
thoroughly "scrambling" a multiple- 
choice, matching CAI quiz. 

Currently, I am developing a computer- 
assisted instruction tutorial on highway 
superelevation for my class in landscape 
architectural construction. In the quiz 
module, I included questions to identify 
forces acting on a vehicle in a curve by 
name and by formula. One question tags 
elements of a force vector diagram by let- 
ter, and lists element names by number; 
another uses the same diagram with a 
numbered list of formulae. Each question 
consists of eleven matching identifica- 
tions: "What is letter a?" etc. The student 
enters the corresponding number of the 
name or formula; the program checks the 
response, gives feedback, shows the num- 
ber of the correct response, and waits for a 
keypress to continue. Figure One shows a 
typical display. 

Obviously, though, if students repeat 
the identical quiz several times, some will 
remember that "the answer for a is 7," 
rather than learn the correct name and for- 
mula for each element. Therefore, I wanted 
to randomly arrange the items presented so 
that on the first try, a might be "centrifugal 
force," and the next time a might be 



"weight force normal to the slope," and so 
forth. The problem was how to ask the 
questions in alphabetical order, yet ran- 
domly assign letters to the diagram compo- 
nents while keeping track of the correct 
answers. 

First, I sketched the diagram on paper 
and listed the names of the elements. Next, 
I numbered the list of names and somewhat 
arbitrarily assigned a letter to each element 
on the diagram, a was "7. 9 (theta)," b was 
"3. Force parallel to the slope," etc. The 
relationships originally established were as 
shown in Figure Two. 

Suppose we shuffle the letters of the 
elements. If we tag the diagram in the same 
order, the position of each letter both on the 
display and in the list of elements will still 
directly correspond to its answer in the list 
of names. We can tag the three 9's (sevens) 
with three different letters, but they are still 
9's. (9 by any other letter...) Matching the 
character's position in the element list will 
point to the answer in the Name* list. 
Matchpoint! 

Remember, the numbers used to iden- 
tify the names and formulae are not 
shuffled, and the diagram does not change. 
Only the identifying letter tagging each 
element of the diagram changes. Changing 
only the order of letters in the element list 
changes both the letter used to tag each 
element on the displayed diagram and, 
because the questions are always asked in 
alphabetical order, the order in which the 
student is asked to identify any given 
element. 

About the Code 

Screens through 9 contain defmitions 



to run a facsimile of the matching questions 
used in the quiz. The tutorial is written in 
LMI'sPC/ForthS.l and requires both EGA 
graphics and floating-point extensions. 
The definitions listed here do require 
LMI's EGA graphics but not the floating- 
point extensions; the method itself requires 
neither. 

Screen 1 contains several words to 
simplify formatting, and screen 2 builds the 
arrays. LMI's word , " (comma-quote) 
creates an uncounted ASCII string, A$. 
One could also C, (C-comma) the numeri- 
cal ASCII values of the first eleven lower- 
case letters after CREATing A$ . answers 
holds the "correct answer" numbers corre- 
sponding to the letters in A$. ''CSWAP and 
SHUFFLE, from Thinking Forth, Appen- 
dix D, "shuffle" A$'s alphabetical order 
using the random number routines found in 
Starting Forth (pg. 265). 

Once A$ has been shuffled, the order of 
the characters is random, but each char- 
acter's position in the shuffled string is still 
directly associated with the numeric an- 
swer stored at the corresponding position in 
ANSWERS. In other words, we don't care 
what letter is at position 3 in A$. The letter 
at position 3 in A$ will be displayed on the 
diagram to tag the same element every 
time. The correct answer for any character 
tagging that element will always be 2 be- 
cause 2 is stored in answers at position 3. 
Figure Three illustrates how this works. 

In the shuffled A$ in Figure Three, a has 
replaced j in the original A$ . To answer the 
first question, "What is letter a?" we locate 
the position of a in A$ (in bytes). The 
corresponding answer for that position is 
stored at 2 * that number of bytes from 
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ANSWERS, SO fetching the correct number 
from ANSWERS is all that's required. We 
match (find) the character which points to 
the answer, a is located nine bytes "down- 
string" from A$, so the corresponding an- 
swer is located nine cells "downnumber" 
from ANSWERS, in this case the number 9. 
b is located where a was located in the 
original A$, so next time through the loop, 
the correct answer for "What is the letter 
b?" will be 7 (position in A$, 2*, AN- 
SWERS, +). 



remember), adds answer's address and 
fetches the correct numeric answer. It is that 
simple! 

Screen 8 contains simple definitions for 
answer processing to help explain Gl- 
VEQUIZ in screen 9. GIVEQUIZ loops 
through ASCn a - j, incrementing the char- 
acter, finding its position in A$, finding the 
corresponding position in ANSWERS, and 
evaluating the student's response. Because 
the loop's I is used to calculate the ASCII 
value of the letter of the element being 




Skipping to screen 9, findchar takes 
the index of the loop in GIVEQUIZ and 
adds 97 (ASCII "a") to put the ASCII value 
of the zth letter of the alphabet on the stack. 
It then puts A$'s address and II (A$'s 
length) on the stack, rots the character to 
the top, and scans a$. scan (an LMI 
word) returns the address of the byte which 
contains the character and the number of 
bytes remaining in the string. We don' t care 
about the remaining bytes, so we drop 
them, leaving the character's address. 
Subtracting a$'s address leaves the offset 
in bytes, the position of the letter in A$. (If 
you don't have SCAN, see Michael Ham's 
"Wordwrapping Tool" (Forth Dimensions 
VII/4). 

MATCHANS WER then takes the position 
(bytes) that findchar leaves on the 
stack, multiplies by two (bytes to cells. 



asked, the questions are asked in alpha- 
betical order. 

Screens 3 through 7 contain words re- 
quired to display the problem. In screen 3, 
the 2VARIABLE CP holds the current 
cursor position. DRAW draws from CP to x,y 
on the stack, and updates CP to the end- 
point; AT resets CP to a new location. 

SMALLFONT and NORMFONT use 
LMI's ROM BIOS call video-io to se- 
lect one of the two resident EGA fonts. The 
font routine is not "proper," in that IBM 
says the call should be used only immedi- 
ately following a "mode set" which clears 
the screen. Using the routines shown allows 
the use of both fonts on the screen at the 
same time. It may not be "proper," but in 
graphics mode, it works! 

Screen 4 definitions draw the diagram, 
and TAG' EM in screen 5 tags the elements. 



ASK FORTH 
ENGIHEEMNG 
ABOUT 



nurSONTIME. 




Find Out How To Implement 
Real-Time Systems In; 

• Digital Signal Processing 

• Manufacturing Process 
Control 

• Machine Vision 

• Robotics 

... on time and under 
budget. 

For Ttie Answers To Your 
Questions, Call Our 
Engineering AnswerLine 
Today: 

(213) 372-8493, 
Ext. 444. 



FORTH, Inc., Ill N. Sepulveda 
Blvd., Manhattan Beach, CA 
90266. 



OH TIME. 
UHDER BUDGET. 




FORTH. Inc. 
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mmt is tie PI Station? 

Urn €amet <mm> is tSI9.Stl2 



THE iPC-SBCSB DEVELOPMENT AND CDNTROL SYSTEM 




WRITE IT - RUN IT - ROM IT 

A single board computer development and control system ttiat 
is so simple to use, you will be developing applications pro- 
grams the first day! 

• Choice of Basic or FORTH * Onboard EPROM programmer (or 
in ROM complete program development 



* 6 channel, 8 bit analog to 
digital converter 



• Two 8 bit input ports 
Two 8 bit output ports 



' Time of day 
• 8088 16 bit uP 



RS-232 terminal and parallel 
printer port for program entry 



■ 7 current sinking outputs rated 
at 500 mA, 50 VDC 



' Up to 32 K of user memory 



' low Cost 
$59 al 1000 



MasterCard and Visa accepted 
Vesta Technology. Inc. 7100 W. 44th Ave. Suite 101 

Wheat Ridge, CO 80033 (303) 422-8088 



0EM188 SBC DEVELOPMENT SYSTEM 
FOR PRODUCT APPLICATIONS 




The OEM188 ■ designed to bring your product to 
market In the fastest possible time ■ through the most 
productive software development environment 
available & cost effective hardware. 

• The 0EM1B8 boots MS-DOS or CP/M-e6. Wrtte your 
program in Assembler, Forth, Basic, C Fortran or Pascal. 

• ROM your code. The EPROM programmer Is onboard 
and fully Integrated into the hardware and software. 

• Develop your code quickly with Vesta's ROMmed 
languages designed for control tasks. 

Size 8" X 8". FDC tor 4 drives, Dual UART with HS-232, TTL 
and RS-422 I/O, Bus - IBM, Printer port. Watchdog, Battery 
backed real time clock and up to 256 K static RAM/ROM. 
Programmer interface - terminal. Various I/O boards available. 

Prices starting as low as $329 each 
VESTA TECHNOLOGY, INC«7100 W. 44th Ave.'Suite 101 
^Wheatridge. CO 80033 » (303)422-8088 « VISA & UCj 




CUSTOM DESIGN 

FOR 

CONTROL COMPUTERS 

Why put this expensive 
specialist on your payroll when 
we already have the support 
you need? Vesta specializes in 
the design and production of 
control computers for OEM's. 

We have thousands of installed systems 
Vbur application engineer is as close as 
your phone 

Your break even quantity may be as low as 
50 units 

Typically 3 to 4 months from ideas to fuily 
functional product 

• PROGRAMMING From BIOS to application level 

• PRODUCTION if you don't want to. we do 

Let us help you get your product into the market, ahead 
of your competition and al a reduced cost. Call us to 
discuss your requirements. Our prompt quote will 
make you happy you did. 

VESTA TECHNOLOGY, INC. 

7100 W. 44th Ave.'Suite 101'Wheatridge, CO 80033 
(303)422-8088 



Diagram Formulae: 

1. WvVgR 

2. Wv^sin /gR 

3. Wv^cose/gR 

4. W 

5. W cos 

6. W sin 9 

7. arctan e 

8. Center of Gravity 

9. rise per foot 



What is letter b? 
3 

WRONG 

The correct answer is 2 
Press a key to continue. 




Figure One. Typical CAI display. 
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Screens 6 and 7 list numerical options be- 
side the diagram. 

The definitions in screen 8 are simpli- 
fied "cousins" of the answer-processing 
routines actually used. Because the rest of 
the quiz is mathematical problem-solving, 
the "real" GET-ANS uses a modified, 
floating-point variation of Michael Ham's 
"Write Like a Fox" numeric-entry routine 
{FD yi/3). CHECK-ANS chooses a ran- 
dom feedback string instead of just dis- 
playing "right" or "wrong," etc., but the 
tutorial isn' t the point here. The incredibly 
simple technique in the example screens 
produces two matching problems consist- 
ing of twenty-two thoroughly scrambled 
questions with evaluated answers. That's 
Forth! 

(You may add your own scoring rou- 
tines...) 



A Sidebar for the Interested 

The superelevation tutorial which 
spawned this article is currently eighty- 
some screens of definitions which compile 
to a 56K LMI turnkey. This autumn, the 
tutorial is being used in the data-gathering 
phase of a doctoral dissertation. Examina- 
tion of the Cognitive Style Construct 
Field-Dependent/Independent as a Stu- 
dent Selection Criterion in Formative 
Evaluation. In developing CAI, as in de- 
veloping any program, user feedback is 
useful. The "formative evaluation" will 
result in two modified tutorials: one based 
on feedback from field-dependent stu- 
dents, and one based on feedback from 
field-independent students. All three 
forms of the tutorial will be used to analyze 
the effectiveness of feedback from stu- 
dents with different learning styles on the 
development of learning materials. 



This is Brooks' second CAI-related 
contribution. In FD VIII/3, he shared his 
technique for placing and editing the 
graphical elements of his presentations. 




Turning to the right 



To help counteract centrifugal force, rtost curves a 

banked. This banKiiig is called SSIPESEiB»f }«! aiA 
CKpresae^ as a pate of rise per unit (lite "/J. 



^ iBi> I uiitini'.'.- f% fcaeks ny Esc exits 



Element: abcdefghijk 
Name#: 73128764597 
(Note that 7 is the correct answer for three items because the angle, 8 (theta), occurs 
three times.) 



Figure Two. Original order of elements and names. 



Position: 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


Original A$: 


a 


b 


c 


d 


e 


f 


g 


h 


i 


j 


k 


ANSWERS: 


7 


3 


1 


2 


8 


7 


6 


4 


5 


9 


7 


Shuffled A$: 


b 


d 


e 


h 


j 


i 


k 


f 


g 


a 


c 



Figure Three. Shuffled A$ contents correlate to correct ANSWERS via their position. 
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Screen # 

( Matchpoint jbb 12:06 10/12/86 ) 

( Last change; Screen 006 jbb 12:16 10/12/86 ) 

HATCHPOIHT 
A Siiple Coiputer-Assisted Instruction 
Technique for Scraabling Hatching Quizes 

by 

J. Brooks Breeden 
Copyright, 1986 

This prograa as written, requires LHI's EGAGRAPH.COM graphics 
driver be loaded first, or you will crash. 

Written in Laboratory Microsystens, Inc.'s PC/FORTH 3.1 



Screen # 1 

( Formatting tools jbb 06:54 10/10/86 1 

: OVERLAY ; ( dumiiy tn forget) 

( the following words simplify formatting the display) 
: theta 233 EHIT ; " ( greek letter., theta) 

: SQ 253 EMIT ; ( superscript 2 for "squared") 

: V2/GR .' v" SQ ." / gR " ; 

: TAB ( X y - ) GOTOXY ; ( ...its so luch shorter) 

( simulate LHI's window control for demo) 
: >EHTRY-W 17 2DUP TAB 6 DO 40 SPACES CR LOOP TAB ; 
: D-LIHE 80 DO 205 EHIT LOOP ; ( double line! 

VARIABLE RND 

: RANDOMIZE ( - ) JTIHE RND ! DROP ; ( seed RND using clock) 
--> 

( RANDGHHE seeds RND when the turnkey application boots) 



Screen # 2 

( Randomly shuffle string jbb 12:08 10/12/86 ) 

I RANDOM & CHOOSE are from "Starting Forth" p. 265.) 
: RANDOM RND § 31421 * 6927 + 32767 AND DUP RND 1 ; 
: CHOOSE ( n - n) 2* RANDOM H* SKAP DROP ; 

( LHI's "nocount" string from LMI newsletter, August, 1986) 
;,"(-) ASCII • WORD DOP COONT ROT SWAP D«P ALLOT CHOVE ; 

CREATE A$ ," abcdefghijk" ( compile "nocount" string) 

( now compile corresponding answers) 
CREATE ANSWERS 7,3,1,2,8,7,6,4,5,9,7, 

( 'CSWAP i SHOFFLE adapted from "Thinking Forth", pp. 268-69.) 
: 'CSWAP ( al a2 - ) 2DDP Cg SWAP C8 ROT C! SWAP C! ; 
: SHOFFLE 11 DO A$ I t A$ 11 CHOOSE t 'CSWAP LOOP ; 
--) 



Screen # 3 

( Color/Graphics jbb 12:10 10/12/86 ) 

7 CONSTANT GRAY 1 CONSTANT BLUE 
2 CONSTANT GREEN 4 CONSTANT RED 

: FG FOREGROUND ; ( its so much easier to type) 

2VARIABLE CP ( coordinates of graphic cursor) 

: AT ( I y - ) CP 2! ; ! put graphic cursor "AT" CP) 

: DRAW ( X y - ) 2DI1P CP 2* LINE AT ; I draw line/iipdatf rp) 

HEX ( "illegally" select EGA resident graphics fonts) 

: SHALLFONT 3 1123 video-io 4DR0P ; ( 8x8 graphics font) 
: NORMFONT 2 1122 video-io 4DR0P ; ( 8x14 graphics font) 
DECIMAL 
-> 

( LHI's video-io calls the ROH BIOS video service) 



Screen # 4 

( Draw the diagram jbb 12:11 10/12/86 ) 

: SLOPE GRAY FG 300 180 AT 600 180 DRAW 300 60 DRAW ; 

: CG-MARK 470 119 AT 470 140 DRAW 455 140 DRAW 470 112 10 

circle ; I circle center of gravity) 

: CF-DIAG RED FG 470 112 AT 620 112 DRAW 588 158 DRAW 

470 112 DRAW ; ( draw centrifugal force vectors) 

: W-DIAG GREEN FG 470 112 AT 470 32 DRAW 512 51 DRAW 

470 112 DRAW ; ( draw weight vectors) 

: HEADER TAB RED FG ." microLARCH" 35 TAB 

." Superelevation Hodule: Quiz" ; 
: SETOP 640X350 VHODE CLS HEADER 1 TAB BLOE FG D-LINE 

16 TAB D-LINE ; 

-> 



Screen # 5 

( Tag the elements jbb 20:24 10/09/86 ) 

( tag elements of diagram with letters) 
; TAG 'EH SHUFFLE SHALLFONT GRAY FG 

62 14 TAB A$ C« EHIT 67 16 TAB A$ U C? EHIT 

68 12 TAB A$ 2+ C* EHIT 76 18 TAB A$ 3 t C8 EMIT 
55 17 TAB A$ 4 ♦ C« EHIT 59 11 TAB A$ 5 ♦ C§ EHIT 
62 4 TAB A$ 6 + C? EMIT 57 9 TAB A? 7 t Clj EMIT 
62 11 TAB A$ 8 t C§ EHIT 62 20 TAB A$ 9 t C§ EMIT 

69 21 TAB AS 10 ♦ C8 EMIT 
NORMFONT GREEN FG 

62 13 TAB ." 27 EMIT .' -" GRAY FG ." unity" 
GREEN FG .' -" 26 EHIT ." 1" 62 12 TAB 25 EMIT 
62 10 TAB 24 EHIT >ENTRY-W ; 



(Continued on page 36., 
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Dateline San Jose... 

FIG Now Accessible Via Modem 



Dateline San Jose 

The Forth Interest Group (FIG) is 
up and running on GEnie, the growing 
modem access communication network 
that is part of GE Information Servic- 
es. GEnie is a nationwide service that 
is also available in Canada and Japan, 
with plans for expansion into Western 
Europe. You can now communicate 
with other Forth users, and download 
software and commentary from the 
FIG sponsored Forth RoundTable on 
GEnie. Type "FORTH" at any main 
menu prompt to get to the FIG area. 

The FIG area on GEnie has three 
main areas that are, in turn, divided 
into several smaller categories. The 
three main areas are: 

• FIG Bulletin Board 

• FIG Real Time Conference 

• FIG Software Library 

1. Bulletin Board - A message oriented 
information exchange with the follow- 
ing categories: 

• Introduction to FIG Online 

• Introduction to Forth 

• Techniques and Tutorials 

• Product Announcements 

• Calendar of Events 

• Applications in Forth 

• Forth Dimensions Feedback 

• FIG Chapter Topics 

• FIG Order Line 

• Forth Standards 

• The Job Market 

• Questions and Answers 

2. Live RoundTable - Discussion area 
where pre-announced, interactive dis- 
cussions may take place. There are 
three separate areas for people to gather 
and exchange information or chitchat. 

3. File Area - A large selection of soft- 
ware and commentary files are availa- 
ble for downloading. 

GEnie, RoundTable and GE Mail are trademarks 
of General Electric Company, U.S.A. 



SPECIAL SIGN-UP FOR FIG 
MEMBERS 

FIG members who sign up using the special FIG 
account number at the regular $18 one-time enroll- 
ment fee will get three free hours of time on GEnie 
(6 P.M. to 8 A.M.). After the initial three hours, all 
subsequent time is billed at the usual GEnie rate of 
$5 per hour during non-prime-time hours. This is 
one of the lowest rates around for an information 
service. Be warned, though, that the 8 A.M. to 6 
P.M. rate is $35 per hour! So watch your online 
times to avoid unwanted prime time charges. 

To join GEnie, use your modem to call 1-800- 
638-8369 with your communication parameters set 
at no parity, 8 data bits and 1 stop bit. Use 300 or 
1200 baud setting and half duplex (echo on). Fol- 
lowing connection, type HHH (without CR). Then, 
at the U# prompt, enter XJMl 1849,GENIE (CR) to 
sign on. This will put you at a menu where you may 
have a demonstration of GEnie, get your local tele- 
phone access number (node), and billing informa- 
tion. You will have the option to sign up for GEnie. 
Have your VISA, Mastercard, Discover, or Ameri- 
can Express card handy or have the initial subscrip- 
tion fee electronically transferred from your check- 
ing account by using the number on your checks. 

Next you will have to answer a few questions 
(name, address, etc.), and electronically agree to the 
terms of the service agreement. For immediate ac- 
cess, use a credit card. GEnie will issue a password 
and provide the phone number for your local GEnie 
access node which will allow you to use the GEnie 
system. You will receive your user's manual and 
other information shortly. 

The GEnie customer service (voice) number is 1- 
800-638-9636 if you have any problems. Service is 
available from 9 A.M. to 1 A.M. weekdays and noon 
to 8 P.M. weekends and holidays. (Eastern Time). 
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w all need tools, sometimes to take 
things apart, sometimes to put things to- 
gether. Of course, this is true of program- 
mers just as much as it is of mechanics, 
cooks, and burglars. Forth makes both the 
design and utilization of programming 
tools easy, letting each one of us establish a 
programming environment that suits our 
needs and personalities. 

This article will give you some tools to 
help you explore your Forth environment 
The main word (tool) I present is called 
see; it is a high-level Forth decompiler. 
Many versions of Forth already contain a 
decompiler, but mine, in addition to the 
source code, displays the addresses for 
each element. This enables detailed explo- 
ration of the dictionary structure, and it 
gives all the information necessary to per- 
form seat-of-the-pants patches. It can be 
compared in power with either a sledge- 
hammer or a jeweler's screwdriver, de- 
pending on how you use it. Sometimes both 
are necessary. 

You probably realize that one of the 
main differences between Forth and tradi- 
tional languages is the number of intelli- 
gent words each language contains. Sim- 
ply, every word in Forth is intelligent It 
contains within itself a complete descrip- 
tion of what it does and who it is. Compare 
this to language X, wherein every word is 
void, a mere character string, with the ex- 
ception of the compiler or interpreter itself. 
Language X is this compiler or interpreter, 
unchanging, everlasting, dull. Since a 
Forth word knows itself, why not just ask it 
to share this information? This is what we 
are going to do. 

My Forth decompiler, SEE, takes a 



word and divides it into all of its compo- 
nents. It then displays this information in an 
organized manner which is ideal for finding 
patch locations, investigating how a word 
works, and acquiring considerable knowl- 
edge on how Forth is put together. If you 
have already completed Forth 101, skip 
ahead to the section entitled, "The Visible 
and Invisible Tools" — the rest of us are 
going to investigate what these component 
parts are. Our initial breakdown of a Forth 
word will be into two parts, a header and a 
body. 

The Id of Forth 

The header is what gives Forth its inter- 
active power. In a turnkey Forth application 
which has been scrunched down to the bare 
minimum necessary to accomplish the 
application, the header is not even neces- 
sary. What you have left, however, will not 
"feel" like Forth; it will be a word processor 
(only), or a video game (only), or a spread- 
sheet (only). They may, indeed, be very 
good word processors or video games, but 
one advantage of Forth is that it bypasses 
the "only's" given by other languages. A 
header is used by the outer interpreter when 
compiling new words into the dictionary or 
interpreting commands from the keyboard. 
It is not used during the actual execution of 
a word' and, hence, has nothing to do with 
the speed of execution, no matter how big 
the header is. The Forth header is subdi- 
vided into two parts, or "fields." 

Who Ami? The first is the name field. It 
begins with a length/attribute byte which 
tells the length of the name, up to 31 char- 
acters. This leaves three bits free to tell the 
interpreter if the word is immediate or not, 



or smudged or not. Okay, that is two bits; 
the third bit is used by different versions of 
Forth in different ways. In fig-FORTH, and 
possibly in other versions, the high bit is 
always set C'l") for a reason I will explain 
momentarily. Immediately following the 
length byte of the name field is the name in 
regular ASCII text Assuming you have 
neither a lower value stored in WIDTH nor 
a version of Forth with a fixed number of 
characters in the name field, this can be 
from one to 31 characters. I blinked when 
I said "regular ASCII text" The last char- 
acter has its high-order bit set (if the name 
is only one character long, it is the last char- 
acter). So, in fig-FORTH, the first byte of 
the name field has its high bit set, as does 
the last byte, while all bytes in between (if 
there are any) do not. This allows the word 
TRAVERSE, when given any address 
within the name field, to find either end of 
the name field. This is how the FIG Model 
handles variable-length names. 

Where Am I? The second part of the 
header is the link field. This is just one cell 
(16 bits) wide. When the outer interpreter is 
hunting for a given word in the dictionary, 
it starts at the top (latest word) of the 
dictionary and checks if it is the word it is 
looking for. If not it goes to the link field to 
discover where the name field of the previ- 
ous word in the dictionary begins. 
SMUDGEd words are ignored. This contin- 
ues until either the desired word is found or 
the link field contains zero, which would 
announce the bottom of the dictionary and 
an unsuccessful search. Note that the trend 
in newer versions of Forth is to place the 
link field immediately prior to the name 
field, a format which allows quicker dic- 
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tionary searches^. If your version does this, 
a simple modification to my code can be 
made. 

So there is the header, both name field 
and link field. The body is also divided into 
two fields, the code field and the parameter 
field. The body is required, even in the 
minimal turnkey system mentioned above. 
It is what makes the Forth word intelligent. 

What Do I Do? The code field is one cell 
wide, commencing immediately after the 
link field. It is a pointer, and it always points 
to machine language code (it took this a 
while to get through my thick head). This 
code may be for colon definitions, vari- 
ables, constants, CODE definitions, or 
whatever other animals may be in your 
system, but it is always low-level, machine- 
executable code. Sometimes, as in the case 
of CODE definitions, this code immediately 
follows the code field. Usually, however, it 
is a very short routine explaining how to 
handle the parameter(s) of the parameter 
field. For example, if I am a CONS tant, I 
take the next cell after the code field and 
push its contents onto the stack. I am then 
through, my mission completed. NEXT. 

What (or Who) Do I Do It With? The 
parameter field is made up of as many cells 
as are necessary, from zero up. In some 
cases, such as for constants and variables, 
these are parameters in the sense that other 
languages use the term. For the common 
case of colon definitions, however, we have 
very special parameters, a Ust of cells con- 
taining the code field addresses of the 
words used to define this word. 

Hold on tight, I am going to try to 
confuse you. Above I said that the code 
field always points to machine code. How- 
ever, where the code field of a given word 
is located, its "code field address," is not 
machine code. Thus, in this list created by 
a colon definition, none of the code field 
addresses point direcdy to low-level code. 
With the decompiler, you are going to see 
things that seem very strange until you 
understand this concept. 

Additionally, sometimes the decom- 
piler will display what I call "invisible 
words." Not many of us have actually used 
BRANCH or LIT in our definitions, but 
when we use if or a literal, they magically 
appear. As we think about what has to 
happen, the reason for these invisible words 
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7TERMINAL IF KEY 3 = IF QUIT THEN THEN ; 
( nl n2 n3 — f ) \ check nl between Cn2,n3] 

ROT < >R < R> AND ; 
emit only ascii between 32 and 127 else emit . 
128 BETWEEN IF EMIT ELSE DROP ." ." ENDIF 
-a) PAD C/L + ; 
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\ DUMP, hex and ascii 



BUNCH ( nl n2) MOD 
(DUMP) ( lo hi) CR 
1+ SWAP DO I DUP 4 0.R 58 EMIT SPACE 
16 DO DUP I 4 BUNCH I + CS 

DUP 2 0.R I PAD2 + C! LOOP 
3 SPACES 16 DO I PAD2 + Ce -"-EMIT LOOP 
CR -QUIT DROP 16 +LOOP ; 
HEADDUMP CR . " addr " OVER 17 1 DO 

DUP 16 U/ DROP . I 4 BUNCH 1+ LOOP DROP 
DUMP BASE e >R HEX HEADDUMP (DUMP) R> BASE •. 
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becomes clear. For example, if our colon 
definition contains the literal 5783, we 
need a filter to say, "Hey, Inner Intopreter, 
the next cell is not an address of a code field; 
it is a number. Just let it be pushed onto the 
stack when we are executing," This filter is 
the word lit. Many immediate words, 
such as IF, in addition to doing something 
during compilation, compile invisible 
words such as branch followed, in this 
case, by how many cells to skip when the 
value on top of the stack (during execution) 
is zero. 

This concludes my Forth 101 lesson. 
Note that other people divide Forth words 
in different ways, sometimes using differ- 
ent terms. Understanding the above will 
help you to comprehend someone else's 
explanation. I hope this background infor- 
mation will help you to appreciate the 
beauty and simplicity of Forth, which you 
will find with SEE. 

The Visible and Invisible Tools 

Now we can start talking about the tools 
to make your version of Forth visible. Like 
almost any tool, SEE requires other tools to 
build it. A useful one, even apart from SEE, 
is a DUMP word that displays both hex and 
ASCII. Every version of Forth I have seen 
(except, unfortunately, the raw FIG Model) 
contains some sort of memory DUMP word, 
but they do not always show both hex and 
ASCII. Sometimes (shiver), they are 
merely decimal dumps. This is a "personal- 
ity" word; when you call it, do you give it 
the starting address and a count to dump, ot 
do you wish to give it the starting and 
ending addresses? The choice is entirely 
yours. The version I wrote uses the latter 
approach (I was used to it, since my ROM 
monitor uses this method). If you prefer the 
former method, merely add this redefini- 
tion on line 12 of screen 8: 
: DUMP { adr count — ) 
OVER + DUMP ; 

This version is formatted for a 64-column 
screen and was modelled after the D com- 
mand of the excellent CP/M public-domain 
disk utility DUUP. 

Note that some of the words used here 
are from screen 7. The nicest of these is 
-QUIT ("don't quit"), which normally 
does nothing (it doesn't quit). If it senses a 
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ELSE ... n2 OF ELSE 
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: CASE 7C0MP COMPILE >R 4 -1 ; IMMEDIATE 
! OF COMPILE R COMPILE = CCOMPILE] IF ; IMMEDIATE 
: OTHERWISE ; IMMEDIATE \ strictly -for appearance in source 
: ENDCASE BEGIN CC0MPILE3 THEN DUP -1 = UNTIL DROP 

4 7PAIRS COMPILE R> COMPILE DROP ; IMMEDIATE 

;s 

I-f used within a DO loop, the loop index <I) will not be 
available within the CASE structure. 
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SEE, a high-level forth decompiler 
VARIABLE SEE! 
; BETSEE! ( — a) SEE' e 2+ DUP SEE! 
l CDMP BETSEE! DUP 31 + DUMP ; 
; SNAME < cfa) 2+ NFA SPACE ID. ; 
; SNUM ( n) BASE S SWAP HEX 4 O.R 
17 LOAD \ exceptions screens t 

ISEE CR \ initialize SEE! and print header 
CR -FIND IF DROP DUP NFA DUP DUP SNUM 3 SPACES Ce . H CR 
DUP 1+ SNUM 6 SPACES ID. CR LFA DUP DUP SNUM SPACE S 
DUP SNUM ." ( •' ID. ." )" CR 
SEE! ! ELSE ." Not found." QUIT ENDIF ; 
: see BEGIN BETSEE ' DUP SNUM SPACE S DUP DUP DUP SNUM 

DUP SEE! e - 2 = IF . •■ code" CR CDMP SP ! QUIT ENDIF 
EXCEPTIONS IF DUP SNAME CR ENDIF -QUIT 
0= UNTIL DROP CR ; : SEE ISEE see ; ;S 
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keypress, though, it pauses the listing until 
another key is pressed. If either the initial or 
the second keypress is '^C, it performs a 
QUIT; otherwise, the second keypress 
continues the display. Other keyboard 
monitors (than that of an Exidy Sorcerer) 
may react slightly differently, since my 
? TERMINAL word goes directly to a spe- 
cial ROM routine rather than to the normal 
keyboard scan. If the definition does not 
work on your computer to your satisfac- 
tion, play with it until it does. It is a very 
useful word for which you will find many 
applications. A substitute, which will 
merely cause a quit if any key is pressed, 
may be made. It is not as nice, but it is still 
useful, and it should work with any kind of 
keyboard scan: 

: -QUIT 7TERMINAL IF 
QUIT THEN ; 

Since I use many tool-building tools, I 
have included screens 2, 3, and 9. Screen 2 
contains some suggestions found in Leo 
Brodie's Thinking Forth. Particularly 
useful is the word \, which allows a line 
comment (similar to ; in many assem- 
blers). Note that the definition for LOAD 
automatically resets base to decimal 
after the load (the other stuff surrounding 
LOAD is peculiar to my disk configuration). 
The only words here necessary for SEE are 
. R (i.e., . R with zero fill) and . H (often 
called H., which would be inconsistent, 
since D . is akeady taken, and D . does not 
force a decimal . of the stack). This is 
mainly a group of words to let me know 
what my present system configuration is; I 
tend to change bases more often than a 
Softball player. Use what you like; after all, 
it is your Forth. Screen 9 is an improvement 
to Dr. Charles Baker's CASE statement. 
This is used for the different cases of 
exceptions. 

Finally, I am ready to discuss the tool 
for which you are reading this article. The 
SEE tool presented here occupies three 
screens (16 - 18). Screen 16 should work 
without significant modification on any 
version of the FIG Model (however, on cell 
address machines, change the 2+ on line 2 
to a 1+, and change the 2 on line 13 to a 1). 
There are two if's: If you choose a dump 
definition requiring address/count, on line 
3 delete the words DUP and +. If your LOAD 



word does not automatically do so, on line 
6 reset BASE to DEC imal after loading the 
exceptions screens (or redefine LOAD). 
Only minor modifications are necessary on 
other versions; just do the things you have 
to do in converting any program. That may 
not be much help, but all the logic is there. 
I have adapted it to three systems, one of 
them pre-fig-FORTH, using this logic^. 

Since you are a Forth programmer, I 
have saved a littie bit of work for you. I 
promise the work will be worthwhile; 
merely adapting the program to your sys- 
tem will, in itself, teach you much about 
your Forth. Screens 17 and 18 will require 
some interactive play on your part The 
addresses contained therein will be correct 
for an unmodified 8080 fig-FORTH (mine 
is modified, but I kept the starting address 
of everything the same), but for most of 
you, some address changes will need to be 
made. 

The two initial words on screen 1 7 make 
the handling of invisible words simpler and 
improve the display. Then comes EXCEP - 
TIONS itself, which is merely a series of 
cases. If the address contained on top of the 
stack (when EXCEPTIONS is called) 
matches one of the exceptions, that code is 
executed and at least one zero flag is re- 
turned to see (two zero flags lets see 
know that it is through). If there is no match, 
the non-zero address (interpreted as TRUE) 
is returned, which causes see to treat it as 
if it were a normal code field address, which 
it will be 90% of the time. The word S name 
on screen 16 is the heart of see, assuming 
there are no exceptions. It merely takes a 
code field address from the top of the stack 
and prints the name of the word which has 
that CFA. 

Still, 10% of the cases must be handled 
separately, so we have to adapt excep- 
tions for those cases, and with your 
addresses. The most sti-aight-forward 
method here is brute force. Start out with a 
null version of EXCEPT IONS (: EXCEP- 
TIONS DROP ;).Then SEE words whose 
definitions you already understand pretty 
well; like SEE HERE (die fig-FORTH 
definition is : HERE DP @ ;). Immedi- 
ately before it starts printing garbage, an 
address will be displayed which will be the 
exception address needed. (Remember that 
-QU I T will allow you to break at any point 
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by typing 'HT.) On the first run of SEE 
HERE, this will be the address for : (which 
is not an ordinary definition in fig-FORTH, 
so in my exception I print the : direcdy, 
DROP the CFA, and return zero). 

After you have made this modification 
to EXCEPTIONS (get rid of the DROP that 
was the initial definition!), run SEE HERE 
again. Now it wiU perform beautifully all 
the way to the ; . When it prints the subse- 
quent garbage, it will already have printed 
both the address of ; and the one-character 
string ; (this is an ordinary fig-FORTH 
definition, but it needs to be an exception so 
see can know when to stop). Now add the 
; exception per the model on line 5 of 
screen 17. Non-fig-FORTH models may 
not act normally with the ; — the way to 
tell is to note if a ; andCR were printed out. 
If they were, the ; was treated normally. If 
not, treat the exception in much the same 
way : was treated on line 4, only follow the 
DROP by two zeroes. 



Similarly, all the other exceptions may 
be found and added to excep T ions . You 
have a big advantage over me when I first 
did this, in that you have a listing of words 
to look for (to the right on screens 17 and 
18). Your system probably has exceptions 
not noted on these two screens, however. 
Any defining word using ; CODE wiU yield 
exceptions and, on some systems, even 
defining words built from <BUILDS 
DOES> pairs will yield exceptions. Do not 
feel cheated by having to hunt down all the 
cases I may have missed or did not have. 



Instead, remember that you are making 
your version of Forth visible to you; the 
more you learn about it, the greater its 
visibility will be. 

There is a more orderly approach you 
may take in this adaptation; it will not save 
any time, but it will prevent gross hacking. 
You have a tool I did not have, the word 
I SEE ("Initializing SEE")'*. For the right- 
most words on screens 17 and 18, merely 
typelSEE rorlSEE OBRANCH. Three 
lines will be typed. The bottom line will be 
the link field, which is contained in the 
address to its left The following cell after 
this address (two bytes, or one cell, depend- 
ing on your system) will be the code field, 
which will usually be the exception address 
you were looking for. In the cases where it 
is not, such as :, do an is EE of a colon 
definition (in this case), as in l see HERE. 
Then do a dump using the left-most ad- 
dress on the top line as your starting ad- 
dress, and about 64 higher than that for 



your ending address. 

You will discover two exceptions upon 
examination of this dump, for : and for ; . 
The way to tell which method you will 
need (at least in a fig-FORTH model) is to 
see if my exception pattern contains the 
word SNAME. If it does, the first method 
may be used; if not, use the latter. Note that 
the latter method will always woik, but 
may give you more information that you 
will immediately understand. 

Finally, let us look at some actual SEE 
decompilations from my system. I have 



them fully commented in Figures One and 
Two. I tried to choose samples of many of 
the things you will run into. The comments 
are in a different typeface than the actual 
decompilation, and this method may be 
used to get a two-dimensional understand- 
ing of the way a given word works. In each 
sample, three fields per line result from the 
decompilation. The first field is the address 
of what follows on that line. In some cases, 
such as compiled strings or many of the 
invisible words, this is just the first address; 
listing all the addresses would be useless, 
since they follow linearly. The second field 
is the contents of this address, usually the 
CFA of another word. The third field is just 
the name of this word pointed to, but may 
be a compiled string or some other ex- 
cepted animal. 

Note that this does not look like a source 
definition is expected to look. It is not 
supposed to. I organized it to contain all 
information the word knows about itself, 
more than was included in the source 
definition. IF has become OBRANCH, 
ELSE has become branch, and then 
and BEGIN have disappeared entirely. 
There will be other surprises as well, but I 
promised you a visible Forth, one showing 
what your Forth is, not what you imagined 
it to be. You will discover it is better than 
you imagined. 

I will comment briefly on CODE defini- 
tions. My listings merely print a DUMP 
when machine code is sensed. While a Z80 
(or 6502 or 8086 or PDF- 1 1) disassembler 
is quite practical, it is not a tool I have found 
necessary to build. Most machine code 
used in Forth is quite short and easy to 
disassemble by hand, when desired. It is 
your Forth; if you want this tool, build it. It 
can be patched into SEE by replacing your 
disassembler word with my word Cdmp 
(Code Dump). Then share it with the rest of 
us — it is our Forth, too. 
Endnotes 

1. There are rare exceptions. I have seen a 
Forth calendar containing words for the 
twelve months, that uses the text within the 
headers to print out the name of the desired 
month. A Forth programmer can use any 
part of Forth in any manner desired. 

2. Consider that the vast majority of string 
comparisons during a search return false 

(Text continued on page 37.) 



3086 


85 




3037 




TITLE 


308C 


3078 


( SEE ) 


303E 


061 1 


• 
a 


3090 


0B5B 


( . " ) The 


309C 


0B5B 




30B4 


0B5B 


( . " ) F o r- t h 


30C2 


0447 


;s 
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1946 


86 


Length byte (true length found by ANDing with IF) 


1947 


MAXSCR 


ASCII name (the max. screen number on my drive) 


194D 


193B ( TASK ) 


Link field 


194F 


B66D VARIABLE 00F3 


Parameter field (for formatting purposes, the 






value is included on the same line) 


e6B4 


83 




06B5 


C/L 


Characters per Line 


ei&B8 


06AB ( BL ) 




e6BA 


0653 CONSTANT 0040 


Note that all numbers are shown as positive. 






16-bit, hexadecimal characters 


07AB 


84 




07fiC 


BASE 




07B0 


07A0 < STATE ) 




07B2 


067F USER 26 = 0010 


the EXCEPTION for USER automatically looks up 






the actual value, which had an index of 26 hex 


30F5 


C6 


VOCABULARY definition, built with <BUILDS ... DOES> 


30F6 


EDITOR 


Note what DOES> does. It compiles addresses into 


30FC 


30D4 ( LINE ) 


the dictionary, the first of which is where 


30FE 


0ACC does) A081 3613 


2175 execution will be transferred. It also pushes 


u r ^ ^ 




■^hp Inrstinn nf ■t'hp "^prnnrl fldrlrp*;^ nf thp rnmDilpd 


0FE4 


0790 CONTEXT 


addresses onto the stack for utilization by the 


0FE6 


05CE ! 


executable code. A perfectly remarkable GOTO in 


0FE8 


0447 ;S 


disguise! 


B /tr 


82 


Note how a CODE definition may be sensed (the 2 


07F0 


2 + 


difference between F7F4 and J37F6). The machine 


07F2 


07E2 ( 1+ ) 


code ends at location gf7FB. Try to decompile 


07F4 


07F6 code 


HERE by hand. Then get busy and type in "SEE"! 


addr 


6789 ABCD 


E F 1 2 3 4 5 


07F6: 


E12323C3 44018448 


4552C5EF 07110645 .#«.D..HER E 


0806: 


07970547 0485414C 


4C4FD4FC 07110645 ...G..ALLO E 


Figure One. Miscellaneous forms. Note the three columns per decompilation: 
Location, Contents of Location, and Description. 
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Forth Interest Group Presents 
Ninth Annual 



FORTH NATIONAL CONVENTION 



November 13-14, 1987 

Red Lion Inn 
2050 Gateway Place 
San Jose, California 95110 

FIG's 10th Anniversary Celebration 
EXHIBITS 
CONFERENCE PROGRAM 
THE EVOLUTION OF FORTH 



Past - Present - Future 

The founders, writers, producers, and evaluators of Forth look at: 
Forth in development • Forth at work • Forth in the future 

TECHNICAL SESSIONS 



Covering the latest in Forth technology 



Request Forth Interest Group Rates. 
Preregistration $20 • Registration at the door $25 • Banquet Saturday 7 p.m. $35 (with keynote speaker) 



Conference & Exhibit Hours 
Fri. Nov.13 12 noon - 6 pm 
Sat. Nov. 14 9 am - 5 pm 



Hotel Reservations 
Red Lion Inn, San Jose, California 
800 547-8010 or 408 279-0600 



Preregistrations @ $20 



Banquet Tickets @ $35 



Total check to FIG (US funds) $ 



Name 



Company 

Address 

City 

Telephone C 



State 



ZIP 



Country 



Return to: Forth Interest Group « P. O. Box 8629 * San Jose, CA 95155 
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1BD5 85 

1BD6 3LIST ...but what if I really, really want to begin with 

IBDB 1BA5 ( INDEX ) Screen 16? 

IBDD 0611 : 

IBDF 0556 DUP 

IBEl 06A7 3 

1BE3 04C9 + 

1BE5 0549 SWAP 

1BE7 01EF (DO) 

1BE9 0310 CR 

IBEB 020B I 

IBED 1B68 LIST 

IBEF 01A8 (LOOP) FFF8 (to 1BE9) "jumping" EXCEPTIONS will automatically compute 

1BF3 0310 CR and show where they "jump" to 

1BF5 0156 LIT 000F 

1BF9 1270 MESSAGE 

IBFB 1B9B PAGE 

IBFD 0447 ;S 



IBFF 


85 




1C00 




TRIAD 


1C05 


1BD5 


( 3LIST 


1C07 


0611 


• 


1C09 


06A7 


o 


1C0B 


11D4 


/ 


1C0D 


06A7 


3 


1C0F 


11B5 


* 


ICll 


IBDD 


3LIST 


1C13 


0447 


;s 



Ok, sometimes I'll do it the "standard" way. 
Note that 1BD5 is the very first byte of 3LIST 



Also note this link to 3LIST. The IBDD does not point 
to machine code, but the contents of IBDD do. 



B7FC 


84 








07FD 




HERE 


provided as 


a favor to those who 


0801 


07EF 


( 2+ ) 


HERE from 


the DUMP in FIGURE 1 


0803 


0611 


• 






0805 


0745 


DP 






0807 


0597 


% 






0809 


0447 


!S 







Figure Two. Colon-Definition Examples 
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^ O Z 




?BUF 


What's in the disk buffers? 




Z U U 7 


( SCR>BLK ) 


2029 


06 1 1 


■ 




202A 


ICAE 


6R0N 


GRaphics ON 


202C 


0310 


CR 


Z u ^ C 




BASE 




2038 


0597 


§ 




^ W ■-■ ^ 


u M J O 


HEX 




2034 


1317 


#BUFF 


# of disk BUFFers (24 in my system) 




01 A DC 

loG or 







Z u D 


W 1 FF 

o i C. r 


(DO) 




203A 


U ^ u u 


I 


Bytes per disk BUFfer (256 in my system) 


^ U ■_> Lr 


PIAHF 

1) O U L. 


B/BUF 


iL U C 




2 + 


• 1 1 1 /it ~T~ \ A 1 

quicker than ( LIT ) 4 + 


i u t u 


PI "'FA 


2 + 


7nA7 

U H i. 


1 1 R'^l 
i i I? J 


« 




7 CIA A 


n A r A 


FIRST 


address of FIRST disk buffer 




01 APQ 
W H L 7 


+ 




7a 


B iJ 7 / 


% 




7ra A fl 


ot *^ A 

Q J □ O 


DUP 




7B A r 

t U H L 


BARF 
Boor 







204E 


1 56 


LIT 0006 




n ft c n 

2052 


1 8D8 


D. R 




7i?)S A 

*L 10 J *T 


ot 1 A 


LIT 00EF 


rignt arrow cnaracter 


2058 


02E0 


EMIT 




205A 


156 


LIT 7FFF 




205E 


03C3 


AND 




2060 


08D0 


-DUP 


0012 (to 2076) IF (is buffer empty?) 


2062 


0192 


0BRANCH 


2066 


1 FFB 


BLK>SCR 


convert block # to screen # 


2068 


0A6C 


DECIMAL 




206A 


068F 







701 A r 
/ u □ L 


01 /. A 7 
W □ H / 






7PIAF 

<U □ L. 


1 A36 


0.R 


display screen # as decimal 


?R70 


0A56 


HEX 






W 1 7fl 


BRANCH 0008 (to 207C) 


70i7 A 


n p ^ p 

B r J D 


(.") vzv 


ELSE (print 3 graphic characters-- 


ft "7 P 


ft ft D 


I 


which printer neutered out) 




n7F7 


1 + 




i. u o c 


01 1 S A 


LIT 0006 


do a CR after every sixth buffer 




1 1 1 4 


MOD 




01 P A 
^ U O O 


01 A A '\ 
W H H 


= 




2088 


0192 


0BRANCH 


0004 (to 208E) 


20BC 


0310 


CR 




208E 


01 A8 


(LOOP) FFAA (to 203A) end of control loop --- - - 


2092 


07B2 


BASE 




2094 


05CE 


1 




2096 


1C9D 


GROFF 


GRaphics OFF 


2098 


0447 


;s 





Figure Three. 2-Dimensional Word Analysis 



FORTHkit 
5 Mips computer kit 
$400 

Includes: 

Novix NC4000 micro 
160x100mm Fk3 board 
Press-fit sockets 
2 4K PROMs 

Instructions: 

Easy assembly 
cmFORTH listing 
shadows 
Application Notes 
Brodie on NC4000 

You provide: 

6 Static RAMs 
4 or 5 MHz oscillator 
Misc. parts 
250mA @ 5V 
Serial line to host 



Supports: 

8 Pin /socket slots 
Eurocard connector 
Floppy, printer, 

video I/O 
272K on-board memory 
Maxim RS-232 chip 



Inquire: 
Chuck Moore's 
Computer Cowboys 

410 Star Hill Road 
Woodside, CA 94062 
(415) 851-4362 
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AUGUST 1987 

ANS FORTH 

MEETING NOTES 

JERRY SHIFRIN - MCLEAN, VIRGINIA 



T 

J~ hese notes about the first meeting of 
the ANS Forth Technical Committee 
(August 3-4. 1987 at CBEMA Headquar- 
ters in Washington, DC) are not minutes of 
the meeting, nor are they part of the ANS 
Forth Technical Committee's official 
documentation. They represent my per- 
sonal impressions only. The reason I men- 
tion this is that during the course of the 
meeting, it became clear there are serious 
liability considerations for anyone publish- 
ing anything which someone could inter- 
pret as anything approaching a standard. 
Therefore, I must caution everyone that this 
IS NOT a standards document. With that 
out of the way, I'll try to give you a sum- 
mary of the events. 

The meeting began at 9:00 a.m. on 
Monday and was attended by many of the 
leaders of the Forth Community, including 
a number of folks from the Fortii Standards 
Team (EST). EUzabeth Rather (as the "con- 
venor") was acting chairperson, and Ray 
Duncan volunteered to be acting secretary 
for the initial meeting. Elizabeth made 
some opening remarks on the maturation of 
Forth and the need for greater acceptance. 
She described the scope of this effort as 
mainly oriented towards describing com- 
mon practice, neither attempting to fix 
Forth nor using the standard as an instru- 
ment for change. 

The agenda was approved without dis- 
sent. 

There followed a discussion on inter- 
national involvement. The X3 representa- 
tive suggested that early involvement 
would lengthen the process. It turns out that 
there is a requirement for an international 
liaison, but it wasn'tclear at what point that 



would become important. Chuck Moore 
felt strongly that international involvement 
was important I don't recall that any deci- 
sion was reached on this. 

Following this was a discussion on 
validation suites. The original scope pro- 
posal specifically excluded them from this 
group's activity. The membership voted 
not to exclude the possibility of such devel- 
opment. 

Cathy Kachurik of CBEMA presented 
a tutorial on the X3 structure and process. 

Charlie Keane proposed adopting the 
Forth-83 Standardas a"B ASIS" document. 
As I understood it, the basis document 
becomes the working document for all ac- 
tivity of the technical committee (TC). That 
is, all changes, deletions, additions, etc. are 
proposed as updates to this document. 
There was a discussion about whether to 
restrict this document to Chapter 12 (the 
Required Word Set). This was defeated 15- 
1. A motion to adopt chapters 1-16 carried 
unanimously. This excluded only the ap- 
pendices (unconttolled reference words, 
experimental proposals, charter, member- 
ship, and proposal/comment forms). 

I put up a motion to include floating 
point as part of the scope of work. This was 
defeated by a vote of 4-12. A motion was 
approved (14-3) to eliminate the time- 
frame constraints on standard language 
extensions. Previously, this had indicated 
that language extensions could not be con- 
sidered until the approval of the ANS Forth 
standard. 

Two additions to the Scope of Work 
document were approved: that the TC will 
review existing and proposed program- 
ming language standards; and to consider 



the impact of the standard on current and 
anticipated hardware technology. Another 
change to this document was to change the 
number of users required for a Forth sy stem 
in order to be considered for non-compli- 
ance with the Forth-83 standard; this num- 
ber was reduced from 1000 to 200 users of 
a particular Forth implementation. The 
Scope of Work document (X3J14/87-002) 
was then approved as amended. 

The TC Subcommittees document 
(X3J14/87-004) was approved with minor 
changes. There are four subcommittees: 
Documentation, Research, Logistics, and 
Technical. 

The Plan of Work document (X3J14/ 
87-003) was tiien approved with a few 
changes. It was agreed to remove specific 
topic areas from the meeting plan in order 
to allow the work to proceed faster if pos- 
sible. Chuck Moore got a motion passed to 
require that at least one meeting be held in 
San Francisco. The membership then 
agreed to hold the next meeting in San 
Francisco, but could not find anyone will- 
ing to host that meeting. EUzabeth Rather 
then volunteered to host the meeting in 
Southern California, and tiiat was agreed 
on. I put up a motion to co-schedule and co- 
locate the ANS Forth meetings with the 
FORML and Rochester conferences. This 
was defeated 4-10. 

Next was Uie Call for Officers. The X3 
Secretariat appoints the officers from a list 
of volunteers. The following people volun- 
teered at the meeting: 
Chair: Charlie Keane, Bill Dress, Larry 
Forsley 

Vice Chair: Bill Dress, Ray Duncan 
Secretary (appt'd.by chair):Martin Tracy 
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International Representative: Larry For- 
sley 

Vocabulary Representative (appointed by 
the chair): Ted Dickens 
Documentation Editor (appointed by the 
chair): Ron Braithwaite 

Applications for these positions may be 
accepted until August 3 1 sL Each requires a 
letter of intent and qualification, along with 
a letter from your employer indicating that 
they understand the amount of time needed 
for taking on these assignments. 

Greg Bailey and Don Colbum then 
proposed that the technical subcommittee 
agree to mark up the standards document, 
indicating areas to be deleted, modified, 
added, and areas of deviation from ac- 
cepted practice. This was agreed 13-3. 

The group then agreed 9-4 to hold the 
next meeting on November 11 -12, 1987 in 
Southern California at FORTH, Inc. 

Elizabeth named acting chairs for each 
of the subcommittees: Ted Dickens, docu- 
mentation; Gary Betts, logistics; Guy Kel- 
ly, research; Greg Bailey, technical. 

I passed out documentation and gave a 
brief description of the ANSForth bulletin 
board on MCI Mail. 

There was then a review of all action 
items and the TC adjourned. This was 
immediately followed by the convening of 
the Technical Subcommittee (TSC). 

Martin Tracy volunteered to serve as 
acting TSC secretary. There was a lengthy 
discussion on the proper name for this 
subcommittee (I'm using TSC in these 
notes, but that may not be accurate) and its 
voting membership requirements. At issue 
was whether it was a formal subcommittee 
which would carry additional documenta- 
tion requirements. As I recall, no conclu- 
sion was reached on this. We did get the 
impression that in order to be a voting 
member of the TSC, you had to be a voting 
member of the TC. 

The TSC then drew together a list of 
goals: identify a kernel of highly compat- 
ible words, decide a strategy for layering 
and extensions, amass information on the 
TC desires and needs, and define a mecha- 
nism for handling proposals. 

I ran out of steam around this point and 
stopped taking notes, but most of the re- 
maining discussion was on the proposal 



process, voting membership, and plans for 
the next meeting. 

Commentary 

While the preceding describes events to 
the best of my recollection and note-taking 
abilities, I thought I'd add a few opinions 
and observations of my own: 

First, I think this effort is off to a great 
start. The membership includes an excel- 
lent and reasonably well-balanced group of 
vendors, users, and other interested folks. I 
believe most of the early objections to this 
effort have been resolved by the make-up 
of the TC. Additionally, there was a clearly 
cooperative spirit among the attendees. 

It was very clear to me that the TC was 
determined to pursue an open organization. 
Several discussions were concerned with 
how to publicize our procedures and en- 
courage participation. This, along with 
CBEMA's requirements for "due process" 
will, I think, result in an excellent docu- 
ment 

Unfortunately, it seems there is still an 
IEEE cloud hanging over this effort. I 
thought a compromise had been reached, 
but apparently there are still a few people 
pursuing the IEEE Forth alternative. We'll 
have to wait and see what happens. 

Chuck Moore, in spite of his avowed 
opposition to a Forth standard, was ex- 
tremely cooperative. My impression is that 
he was mainly concerned with having wide 
participation and not shutting off the possi- 
bility of new Forth development. (He also 
mentioned that he was working on a new 
Forth compiler.) 

Don Colbum seemed to feel that we 
could put out a draft document much earlier 
than planned and was surprised at the idea 
that there would be any difficulty in reach- 
ing a consensus. 

I felt that Elizabeth did an excellent job 
of chairing the meeting, but suppose she 
was wise in not volunteering as the perma- 
nent Chair. This way, we avoid even the 
appearance of a FORTH, Inc.-dominated 
effort 

I have a couple of concerns about the 
course of this project Most difficult for me 
to reconcile is the notion of a standard 
documenting common usage among the 
major Forth implementations. In some 



cases, this may cause a reversion of some 
language features back to the way they 
were before the 83 standard. For example, 
FORTH, Inc. never changed its definition 
of LEAVE to correspond with the 83-stan- 
dard; i.e., it does not immediately leave the 
loop. One could, therefore, argue that the 
83 standard LEAVE is not in common us- 
age. Thus, it seems to me that the ANS 
standard might either leave its effect unde- 
fined or else omit it entirely. Worse, I think, 
would be to revert its meaning back to the 
79 standard. 

My other main concern is with the 
minimalist approach. I guess it's the only 
sensible way of getting this out in a reason- 
able amount of time, but I worry that most 
proposals will simply be put aside with the 
note that they're outside the documented 
scope of the ANS Forth effort. 

On the positive side, I think this group 
has enough taleilt and dedication to com- 
plete a superb standard in a reasonable 
amount of time. I offer my personal thanks 
to everyone involved for providing two 
days of stimulating discussion. A special 
tip of my Forth beanie goes to Elizabeth 
Rather and Martin Tracy for doing the bulk 
of the work in pulling this activity together. 

Other Notes of Interest 

Don and Chris Colbum were kind 
enough to invite everyone over to their 
house Monday evening for pizza and pool 
(swimming, that is). It was very pleasant 
and provided the opportunity for people to 
get to know each other abit better. Don took 
us down for a tour of his workshop; it 
looked Uke a Mac farm. Don demonstrated 
the Mac II running several animated graph- 
ics tasks under MacForth in separate win- 
dows. Very nice. 

I was very happy to have Martin Tracy 
and Guy Kelly stay at my house, but regret 
the short time available for Forth talk. Guy 
demonstrated his new, implementation- 
independent Forth editor. It seemed very 
powerful — it could work with screen files 
or native blocks. In addition, he provided 
three ways for moving stuff around — cut 
and paste, a line stack (push and pop a line 
at a time), and a "barrel" (push stuff into the 
barrel, and select from it in any order). I 
believe Guy will be offering this for sale. 
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He includes drivers for several Forths, in- 
cluding F83, MVP, Uniforth, and LMI. 

Martin, as usual, has numerous irons in 
the fire, including his polyFORTH im- 
plementation for Digital Signal Processing 
(DSP) chips, his upcoming Dr. Dobb's 
article and column, along with work on 
ZenForth, and his continuing involvement 
with the Forth Model Library. Martin 



mentioned that Wil Baden had started help- 
ing him on the Zen project. Martin stopped 
by the Potomac FIG meeting (on his way to 
the airport) and talked about several of his 
projects. 

Miscellaneous Notes 

X3 has raised its membership fees: $200 
for one principal membership (includes one 



alternate), $150 for observer and each ad- 
ditional alternate. The X3 Secretariat may 
be reached at: CBEMA, 311 FirstSt. N.W., 
Suite 500, Washington DC 20001, 202- 
737-8888. 

Jerry Shifrin is employed by MCI 
and is the sy sop for the East Coast Forth 
Board (703-442-8695). 



MCI MAIL'S 
ANS FORTH BBS 



MCI Telecommunications is sponsor- 
ing a bulletin board on MCI Mail in support 
of the ANSI Forth standards activity known 
as X3J14. This board will contain agendas, 
proposals, minutes of meetings, and related 
information. If you are interested in the 
development of the ANS Forth standard, 
this is the place to see what's going on. 

ANS Forth Bulletin Board 

ANSForth is the main heading for sev- 
eral types of message areas. From the main 
"Command:" prompt, type VIEW ANS- 
FORTH to see all currently active areas. 
The following are currently available: 

1. General: general information on X3J14; 
membership, documentation, officers, etc. 

2. Agenda: agendas for X3J14 meetings. 

3. Minutes: minutes of previous meetings. 

4. Proposals: proposals for consideration 
byX3J14. 

5. Comments: comments on active propos- 
als. 

6. Misc.: uncategorized messages. 

In general, bulletin board messages will 
only remain available for 90 days (this is an 
MCI Mail constraint). Archived versions 
of older messages will be available for 
downloading from the East Coast Forth 
Board. 

Viewing the Bulletin Board 

To access the ANSForth Bulletin Board 
type 

VIEW ANSFORTH <subarea-name> 

For example, type 
VIEW ANSFORTH AGENDA 
to see the upcoming agenda. 

If you don't know the particular 



subarea's name, type at least ANSFORTH, 
then choose the subarea you want from the 
list of matching names. You will then see a 
"View:" prompt; type one of the following 
commands: 

SCAN To display a scan table of 
items on the board, showing 
the date posted, subject, and 
the size of the item. 

READ To display all items or those 
selected by scan number, 
with page breaks and a pause 
between items. 

PRINT To display all items or those 
selected by scan number, 
with no page breaks or pauses 
between items. 

LEAVE To exit the board and return 
to mail mode. 

EXIT To log off MCI Mail. 

Posting Messages on the Board 

Unlike many other bulletin boards, 
MCI Mail only allows the bulletin board 
owner (me) to post messages. Therefore, in 
order to get a message posted for public 
view, you must send it to me to be for- 
warded. 

The best way to send me a message is 
via MCI Mail. I check this mailbox daily, 
and forward messages to the bulletin board 
with just a few keystrokes. To send me a 
message on MCI Mail, enter the CREATE 
command and at the "TO:" prompt enter 
"Gerald A. Shifrin". Alternatively, you 
may address a message to my MCI Mail id: 
299-4103. 

The second best way to get a message 
posted is to leave it on the East Coast Forth 



Board at 703-442-8695, addressed to 
S YSOP with instructions for it to be posted 
on the ANS Forth Bulletin Board. Simi- 
larly, you may upload a file (also with 
appropriate instructions) to me. This will 
get your message posted within a day or 
two. 

If you don't telecommunicate but want 
to get a message posted, send me a floppy 
disk in IBM PC format containing the 
file(s) to be posted. Mail this to: Jerry 
Shifrin, 6212 Loch Raven Dr., McLean, 
VA 22101. 

I'm sorry, but I won't be able to return 
your disk unless you include a self-ad- 
dressed, stamped mailer. Please do not send 
written material to be posted. I don't have a 
document scanner and I'm not a great typ- 
ist. 

Prices 

The annual mailbox fee is $18, payable 
upon registration and billed on the anniver- 
sary date of service. This allows you to read 
messages sent to you. There are additional 
charges for sending messages and access 
fees; these are described below. The initial 
$ 1 8 registration fee will be credited against 
any charges you have in the first two 
months. 

It costs $.45 to send an instant message 
of up to 500 characters; $1 for up to 7500 
characters, and another $1 for each subse- 
quent 7500 characters. There is no connect- 
time charge if you call through a local MCI 
Mail number. There is a $.05/minute 
charge if you access MCI Mail via Tymnet. 
—JS 

[Editor's note: You may find the stan- 
dards-related news and discussion on 
FIG's GEnie conference (see announce- 
ment elsewhere), and on the East Coast 
Forth Board, timely and complete enough 
for most purposes.] 
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TI-99I4A fig-FORTH 

GRIDPLOT 

GENE THOMAS - LITTLE ROCK, ARKANSAS 



I began learning Forth, I was 
particularly excited about finally being 
able to operate in high resolution on the Tl 
without having to wrestle with assembly 
language. But I immediately ran into a 
snag. The transcendentals (sin, cos, etc.) 
compete with the bit-map color table for 
work space! No matter that I wasn't using 
any color commands — a messy screen 
resulted. How was I to draw a simple circle 
without sines and cosines? 1 know that I'm 
not the first to tackle this problem, and 
probably not the first to solve it, but here 
goes. 

My first effort involved the use of a sin 
table. It worked. Then I saw a copy of FD 
IV/1 with the trig derivation screen by J. 
Bumgamer. With some slight modifica- 
tions and a couple of additions, it became a 
part of my program. A reduction of mem- 
ory overhead, and one less screen resulted. 
Some major changes in the graphics com- 
mands followed and gridp lot was bom. 

The accompanying screens are reasona- 
bly well documented, so I won't discuss 
each word in detail. HUE sets the drawing 
color against a black background. XSET 
and YSET add your X and Y positions to XC 
and YC (constants describing the center of 
the screen) to effect X,Y plotting. CLEAN 
erases the bit-mapped screen, accounting 
for the current mode, GRAPHICS2, 
SPLIT, or SPLIT2. 7BREAK checks for 
FUNCT ION CLEAR, allowing you to halt 
a graphic in progress. 

A more descriptive discussion of 
CIRCLE will help in understanding the 
graphic words. The sin of the angle of a 
rotating radius at each step gives the X 
position. In a like manner, the cos produces 



the Y position. These successive X,Y coor- 
dinates are plotted, forming the perimeter 
of the circle. XSET and YSET shift these 
coordinates to the correct quadrant of the 
X,Y grid. (See Figure One.) 

A complete understanding of tline is 
necessary, both because of the resident 
word CLINE, and because how it works is 
not immediately evident. CLiNE writes the 
tiny characters to the bit-mapped screen. 
CLiNE expects to find on the stack the 
address of the text to write, the character 
count, and the line number to write to. The 
line numbers are rows zero to 23, as if in the 
32-column mode. CLINE always begins 
writing at column zero. The only way to 
move the text over is to pad it with 32s 
preceding the first character. That is a major 
flaw when you want to write on a screen 
containing graphics. Those blanks will 
erase anything in their way. 

TLINE is a redefinition of CLINE. I 
didn't redefine CLINE itself because 
CLINE is still useful, and requires less 
effort on our part to use when it is appropri- 
ate. 

Both TLINE and CLINE call smash, a 
resident CODEd word which formats the 
tiny characters and puts them into a line 
buffer, LB. SMASH leaves on the stack the 
information expected by VMBW (Video 
Multiple Byte Write), the LB address, the 
VDP address to write to (column and row, to 
us), and the character count. 

In TLINE, the VDP address left by 
SMASH is DROPed and replaced by the VDP 
address that is the column and row we want 
to write to. That address is computed by 
TPUT by adding the necessary number of 
addresses to skip, to the beginning of the 



bit-map pattern descriptor table — which 
starts at hex 2000 (8192), and is stored in 
the variable PUT. The text is stored in 
TBUF , beginning at TBUF + 1 . The count is 
stored at TBUF (i.e., cnt TBUF C ! ). 

Use the keyboard method (tget) to 
find just where you want to print your text, 
then edit the necessary commands onto 
your Forth screen. See the notes on screen 
29 for examples of how to do it. As a 
reminder, tget requires two returns. 

Screen 31 contains a demonstration 
which should help in getting started. 
Screen 30 contains two formulas that draw 
some very satisfying graphics. Writing 
HYPO and EPI wiU be valuable practice. 
Then add the SCREEN_dump from FD VI/ 
6 and you will have a toy well worth play- 
ing with! 



Y 


YPOS ■••A, 


X 0,0 
0sTheta 


XPOS 



Figure One. Theta is rotated through 360 
degrees in the DO LOOP, where I = theta. 
On each increment of the loop, the X, Y po- 
sitions are plotted. 




Figure Two. Sample screen dump. 
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( 

1 

2 

3 . 

4 . 



19 

&RIDPLOT [ver 2.0] Loading screen. GT Apr 85 
TEXT CLS 2 GOTOXY .' 6RIDPL0T ver 
EMPTY-BUFFERS 

C. ft. F.I. 6." 
' Scrn Contents" 



) BASE-:>R DECIMAL 
2.0- CR 



c 

J . 


H 




6 . 


" 20 - 


sin I CDS functions" 


7 . 


■ 21 - 


variables and utilities' 


8 . 


■ 00 _ 


utilities continued" 


9 . 


• 23 - 


circle coMand" 


10 , 


* 24 - 


rule Si point coiiands* 


11 . 


" 25 - 


sookes coiaand' 


12 . 


" 26 - 


Dolvqon couand" 


13 . 


■ 27 - 


box couand' 


14 , 


■ 28 - 


tline (bit-iap print)" 


15 R 


->BftSE 


.' Cowand^' QUIT 





CR CR 




CR 




CR 


20 LOAD 


CR 


21 LOAD 


CR 


22 LOAD 


CR 


23 LOAD 


CR 


24 LOAD 


CR 


25 LOAD 


CR 


26 LOAD 


CR 


27 LOAD 


CR 


28 LOAD 


CR CR 



J.Buigarner ) 



SCR #20 

( TRIG by derivationlHODlj 4th DEMINSIONS 4/1, 

1 BASE->R DECIMAL 

2 10000 CONSTANT lOK ( scale factor ) 

3 ! LF SNAP / MINUS lOK tl lOK + ; ( repititious foriula ) 

4 : 7MIRR0R DUP 90 > IF 180 SNAP - THEN ; 

5 : REDUCE 360 MOD DUP 0< IF 360 + THEN DUP 180 < IF 7MIRR0R 

6 ELSE 180 - 7MIRR0R MINUS THEN ; ( establish sector ) 

7 : SIN REDUCE 17453 100 tl ( convert degrees to radians ) 

8 DUP DUP m it >R lOK 72 R LF 42 R LF 20 R LF 6 R LF 

9 lOK M R> DROP ! ( calculate sin ) 

10 : COS 360 HOD 90 SNAP - SIN ; ( COSEX] = SINIX+90] ) 

11 : SINI ( n angle - ntsinCanqlel ) SIN Mt lOK M/ SNAP 

12 4999 > IF 1+ THEN ; ( rounded up if re« => .5 ) 

13 : cost 360 MOD 90 SNAP - SINt ; ( plotable X.Y positions 1 

14 R->BASE ;S 

15 Modified by GT, Apr 85 



SCR 121 

( GRIDPLOT COMMANDS, GT Apr 85 ) 
1 

2 80 CONSTANT XC 

3 VARIABLE XP 
VARIABLE RAD 
VARIABLE XP' 
VARIABLE NID 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



BASE->R HEX 
( Variables, Constants ) 
60 CONSTANT YC ( center of screen constants ) 
VARIABLE YP ( x and y positions ) 
( radius value ) VARIABLE INC i increment ) 
VARIABLE YP' ( TO equivalent of XP. YP 1 
VARIABLE DEP ( box variables ) 
( Utilities ) 

HUE ( c — ;p 1 cyan, 2 red, 3 yellow, 4 lagenta, 5 green ) 
CASE 1 OF 71 ENDOF 2 OF 61 ENDOF 
3 OF Al ENDOF 4 OF Dl ENDOF 
5 OF CI ENDOF 6 OF Fl ENDOF ( white ) 
ENDCASE DCOLOR ! ; ( default is white ) 
XSET XC XP e + + ! ( X and Y offsets for plotting on ) 
Y3ET YC YP 8 + + ! (X.Y grid ) 



15 R->BASE 



COMBINE THE 
FUMf POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 

HS/ 
/FORTH 



Yes, Forth gives you total control of your 
computer, but only HS/FOHTH gives you 
implemented fur)ctionatity so you aren't left 
hanging with "great possibilities" (and lots of 
work!) With over 1500 fwictions you are 
almost done before you start! 
WELCOME TO HS/FORTH, where megabyte 
programs compile at 10,000 lines per minute, 
and execute faster than ones built in 64k 
limited systems. Then use AUTOOPT to 
reach within a few (>ercent of full assembler 
performance — not a native code compiler 
linking only simple code primitives, but a fuH 
recursive descent optimizer with almost all of 
HS/FORTH as a useable resource. Both 
optimizer and assembler can create inde- 
pendent programs as well as code primitives. 
Tfte metacompiler creates threaded systems 
from a few hundred bytes to as large as re- 
quired, and can produce ANV threading 
scheme. And the entire system can t>e saved, 
sealed, or turnkeyed for distribution either on 
disk or in ROM (with or without BIOS). 
HS/FORTH is a first class application devel- 
opment and implementation system. You can 
exploit an of DOS (commands, functions, 
even shelled programs) and link to .OBJ and 
.LIB files meant for other languages inter- 
actively! 

I/O is easier than in Pascal or Basic, but much 
more powerful — whether you need parsing, 
formatting, or random access. Send display 
output through DOS, BIOS, or direct to wdeo 
memory. Windows organize both text and 
graphics display, and greaUy enhance both 
time slice and round rol>in multitasking utili- 
ties. Math facilities include both software and 
hardware floating point plus an 18 digit 
integer (finance) extension and fast arrays for 
all data types. Hardware floating ijoint covers 
the full range of trig, hyper and transcenden- 
tal math including conr)plex. 
Undeniably the most flexible & complete 
Forth system available, at any price, with no 
expensive extras to buy later. Compiles 79 & 
83 standard programs. Distribute metacom- 
piled tools, or tumKeyed applications royalty 
free. 

HS/FORTH (complete system): $395. 
HS/FCrrrH: Tutorial & Rsf (500 pg) $ 59. 

Forth: Text & Reference (500 pg) $ 22. 

HS/FORTH Glossary $ 10. 

GIGAFORTH Option (Beta release) $245. 
(Native Mode from SOFTMILLS, INC.) 



PtIPI Visa 



Mastercard 



HARVARD 
SOFTWORKS 

POBOX69 
SPRINGBORO. OH 45066 
(513) 748-0390 
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SCR 122 

( GRIDPLOT COMMANDS, 6T Apr 85 ) BASE->R 
( Utilities, cont'd ) 
CLEAN ( -- erase bit-iap screen ) 



DECIMAL 



1 
2 
3 
4 

5 
& 
7 
8 
9 
10 
11 
12 
13 
14 
15 



PAD 64 32 FILL 



VDPMDE 
( graphics2 ) 



split 

5Dlit2 

DO 



CASE 

4 OF 

5 OF 

6 OF 
ENDCASE 

PAD 64 I CLINE 



1 



( ensure only blanks I 
i get bit-iap lode ) 
24 ENDOF 
16 ENDOF 
24 4 ENDOF 



LOOP 



( erase each line ) 



?BREAK ( ip check for break Iktn dr] if in graphics2 then ) 

i go to split [to lake keyboaad text visable] ) 
7TERMINAL DUP DUP IF VDPMDE M = IF SPLIT THEN IF CLEAN 
QUIT THEN THEN ; 
->BASE 



SCR 123 

( CIRCLE; GRIDPLOT 

1 : CIRC 



6T Apr 85 ) BASE->R DECIMAL 



( calculate coluin ) 

( calculate roM ) 

( plot roK.col; fctn dr? 



( plot only every IKC deg ) 



[variables] circle — ) 

2 361 1 DO RAD S I SINt XSET 

3 RAD 8 I COSI YSET 

4 DOT 7BREAK 

5 INC e +LOOP 5 

6 : CIRCLE ( xp vp rad — ;p xp=0, yp=0 is center of screen ) 

7 DUP 35 > IF 1 ELSE DUP 15 < IF 3 ELSE 2 ( set inc ) 

8 THEN THEN INC ! 

9 RAD ! YP ' XP ! CIRC ; 

10 R->BASE ;S There are soae INC's and DO liaits Mhich in 

U coabination produce sioother circles at sone radii. Liiited 

12 resolution of 256 I 192 tends to lake ragged circles. 

13 X,Y quadranti upper It loner It upper rt lower rt center 

14 XP! neg neg pos pos 

15 YPI neg pos neg pos 



) 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 



124 

( RULE, POINT; GRIDPLOT GT Apr 85 ) BASE->R 

: RULE ( xp yp xp' yp' -- ;p draw line using X,Y coord. ) 

>R >R >R XC + R> YC + ( col, row froi ) 

R> XC + R> YC + ( col. row to ) 

LINE ; ( draw line ) 

; POINT ( xp yp — ;p plot dot using X,Y coord. ) 

>R XC + R> YC + DOT ; ( POINT is scrn center ) 

R->BftSE ;S 



RULE draws a line froi/to X.Y coordinates. POINT plots a dot 
at X,Y coordinate. LINE and DOT coitands «ay still be used as 
usual to draw a line froi col, row to col, row, and dot to plot a 
pixel on at col, .row. 



NOW FOR IBM PC. XT, AT. PS2 
AND TRS-80 MODELS 1 . 3. 4. 4P 

The Gifted 
Computer 

1 . Buy MM8F0RTH before year's end, 
to let your computer work harder and 
faster. 

2. Then MMS will reward It (and you) 
with the MMSFORTH GAMES DISK, 
a $39.95 value which we'll add on at 
no additional charge! 

MMSFORTH is the unusually smooth 
and complete Forth system with the 
great support. Many programmers report 
lour to ten times greater productivity 
with this outstanding system, and MMS 
provides advanced application* pro- 
grams in Forth for use by beginners and 
for custom modifications. Unlike many 
Forths on the market, MMSFORTH gives 
you a rich set of the instructions, editing 
and debugging tools that professional 
programmers want. The licensed user 
gets continuing, free plione tips and a 
MMSFORTH Newsletter is available. 
The MMSFORTH GAMES DISK includes 
arcade games (BREAKFORTH, CRASH- 
FORTH and, for TRS-80, FREEWAY), 
board games (OTHELLO and TIC-TAC- 
FORTH), and a top-notch CRYPTO- 
QUOTE HELPER with a data file of 
coded messages and the ability to en- 
code your own. All of these come with 
Fortti source code, for a valuable and 
enjoyable demonstration of Forth pro- 
gramming techniques. 
Hurry, and the GAMES DISK will be our 
free gift to you. Our brochure Is free, 
too, and our knowledgeable staff is 
ready to answer your questions. Write. 
Belter yet, call 617/6S3-6136. 




FWTH 



and a free gift! 

GREAT FORTH: 

MMSFORTH V2.4 $179.95* 

The one you've read about in FORTH: A 
TEXT & REFERENCE. Available for IBM 
PC/XT/ AT/PS2 etc., and TRS-80 M.1. 3 
and 4 

GREAT MMSFORTH OPTIONS: 

FORTHWRITE $99.95* 

FORTHCOM 49.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS* 99.95 

EXPERT-2 69.95 

UTILITIES 49.95 

'Single-computer, single-user prices; cor- 
porate site licenses from $1,000 additional. 
3W format, add $5/disk; Tandy 1000, add 
$20. Add S/H, plus 5% tax on Mass. orders. 
DH+ not avail, for TRS-SOs. 

GREAT FORTH SUPPORT: 

Free user tips, MMSFORTH Newsletter, 
consulting on hardware selection, staff 
training, and programming assignments 
large or small. 
GREAT FORTH BOOKS: 

FORTH: A TEXT & REF $21.95* 

THINKING FORTH 16.95 

Many others in stock. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, NalIck, MA 01760 
(617/653-6136, 9 am - 9 pm) 
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SCR i25 
( SPOKES! BRIDPLOT 
1 
2 
3 
* 
5 
b 
7 
8 
9 
10 
11 
12 

13 R->BfiSE 



GT Aor 85 ) BASE->R DECIMAL 



SPO ( [variables] spokes — ) 
361 DO RAD % I SINt XSET 
RAD 8 1 COS* YSET 
XP e XC + YP « YC 
LINE 'BREAK 
XP' § +LOOP ! 
( xp yp len rep — 
3i0 SNAP / XP' ! ( 



SPOKES 



I X end position I 
t Y end position ) 
( origin of spokes ) 
( draM origin to X.Y ) 
( repeat rep tiies ) 
;p plot rep spokes len froa xp,yp) 
XP' used to store repititions ) 



RAD ' 
YP ! 
SPO 1 



( store len ) 
XP ! ( store origin of spokes ) 



14 SPOKES plots spokes (as on a Hheel) given a center, length of 

15 spokes and nuaber of spokes. 

SCR t2& 

( POLY; BRIDPLOT, BT Apr 85 ) BASE->R DECIMAL 

1 : POL ( [variables] poly ~ ;p drait polygon ) 

2 361 INC e DO RAO 9 I SINt XSET ( X end position froa ) 

3 RAD 8 I COSI YSET ( Y end position froi ) 

4 RAD § I XP' e + SINt XSET ( X position to ) 

5 RAD f I XP' i + cost YSET ( Y position to ) 

6 LINE XP' e ( draw side ) 

7 +LOOP ! ( repeat 360/lsides tiies ) 
8 

9 : POLY ( xp VP rad Iside — ;p drat* polygon ) 

10 360 SMAP / DUP XP' ! INC ! ( store Iside and inc ) 

11 RAD ! ( store radius ) 

12 YP ! XP I ( store center position of polygon ) 

13 POL ! 



14 R->BASE jS 



POLY plots a polygon by connecting the ends 



15 of spokes, but Hithout drawing the spokes. 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



♦27 

( BOX PLOT, BT Apr 85 ) 
: RESET XP' 8 XP ' YP' @ 
: XP+ XP 8 HID e + XP ' 
: YP+ YP § DEP 8 + YP • 
: BX ( [VARIABLES] box -- ) YP 8 YP' 
( col. row fi) ( col, row to) 



BASE->R DECIMAL 
YP ! ! ( reset var to init value) 
XSET i ( calculaate corners ) 
YSET ; 

XP 9 XP' ' i save var's) 



XSET YSET 

XSET YP+ 

XSET YSET 

XP+ YSET 



XP+ YSET 
XP+ YSET 
XSET YP+ 
OVER YP+ 



LINE 
LINE 
LINE 
LINE 



RESET ( draw line Ji ) 
RESET ( restore var's 
RESET 



: BOX ( xp yp wid dep — ;p ul corner, wid accross, dep down ) 

DEP ' NID ' YP I XP ! BX ; 
R->BASE 




FIG-FORTH tor the Compaq, 

IBM-PC, and compatibles. $35 
Operates under DOS 2.0 or later, 
uses standard DOS files. 
Full-screen editor uses 16 x 64 
format. 

Editor Help screen can be called 
up using a single keystroke. 
Source included for the editor 
and other utilities. 
Save capability allows storing 
Forth with all currently defined 
w/ords onto disk as a .COM file. 
Definitions are provided to allow 
beginners to use Starting Forth 
as an introductory text. 
Source code is available as an 
option, add $20. 

Async Line Monitor 

Use Compaq to capture, 
display, search, print, and 
save async data at 75-1 9.2k 

baud. Menu driven with 
extensive Help. Requires two 
async ports. $300 

A Metacompiler on a 

host PC, produces a PROM 
for a target 6303/6803 
Includes source for 6303 
FIG-Forth. Application code 
can be Metacompiled with 
Forth to produce a target 
application PROM $280 

FIG-Forth in a 2764 PROM 

for the 6303 as produced by 

the above Metacompiler. 
Includes a 6 screen RAM-Disk 
for stand-alone operation. $45 

An all CMOS processor 

board utilizing the 6303. 

Size; 3.93 x 6.75 inches. 
Uses 11-25 volts at 12ma, 

plus current required for 
options, ^t*^ $^- $280 
Up to 24kb memory: 2 Rb to 
16kb RAM, 8k PROM contains 
Forth, Battery backup of RAM 
with off board battery. 
Serial port and up to 40 pins of 
parallet I/O. 

Processor buss available at 
optional header to allow expanded 
capability via user provided 
interface board. 

Micro Computer 
Applications Ltd 

8 Newfield Lane 
Newtown, GT 06470 
203-426-6164 

Foreign orders add $5 shipping and liandling. 
Connecticut residents add sales tax. 
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BRYTE I 
FORTH I 

INTEL I 
8031 I 

; MICRO- 
CONTROLLER! 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

130 page manual — $ 30.00 
8K EPROM with manual— J 100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 
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128 

( TLINE! 6RIDPL0T 6T Apr 85 ) BASE->R DECIHAL 

VARIABLE TBUF 34 ALLOT ( buf ior 64 char of TLINE text ) 

( PLUS char count. ) 
VARIABLE PUT ( PUT holds the VDP address to write to. the ) 
( address is converted by TPUT froi col, row. ) 

! TCNT TBUF 1+ 64 DO DUP I + M 0= IF I LEAVE THEN 

( count frot 1st char of text to first null, put the ) 
( count on the stack and LEAVE the loop. ) 
LOOP SWAP 1- CI i ( store char count at TBUF ) 

: TPUT 256 t SWAP 4 t + 8192 + PUT ' : ( col, roit -- ) 

( calculate VDPaddr to begin Mriting at, store in PUT. I 
R->BASE --> 



SCR 129 

( TLINE! 6RIDPL0T 6T Apr 85 ) BASE->R DECIMAL 

T6ET TBUF 1+ 64 EXPECT TCNT ; ( -- <enter> text <enter> I 
( store text beginning at addr TBUF plus 1. ) 



TLINE LB 100 ERASE SMASH >R DROP ( drop addr frot du«ny arg) 
( and replace it «ith) PUT 8 R> VNBW ; ( write on screen ) 
( LB is a resident linebuffer used by StIASH. ) 
( SMASH requires a line t, thus the dutiy arguient. ) 
WRITE TBUF COUNT 1- ( duiiy argument) TLINE ; ( -- ) 



R->BASE ;S To print frot screen use the string-store word, 
!" and put the text at TBUF l+, then put count at TBUF, give 

12 the col, roN to TPUT; TBUF 1+ I" TEH" cnt TBUF C! col ron TPUT 

13 Then execute WRITE. To print frot kevboard use T6ET, TPUT, WRITE. 

14 ALWAYS MAKE CHAR COUNT EVEN. PAD WITH A BLANK IF NECESSARY: AND 

15 START ON AN EVEN NUMBERED COLUMN. ROWS ARE THRU 23. 

SCR 130 

;S GRIDPLOT - soae interesting foriulas for graphics. The 

1 formulas are given in algebraic fori. It is left to you to 

2 put thei into post-fix notation. 



(A+B)tCOS[theta] 
(A+B)ISIN[theta} 
(A-B)tCOS[theta] 
(A-B)»SIN[theta] 



AtCOS(A+B/A»theta) 
AtSlNIAiB/Attheta) 
BtCOS(A-B/B»theta) 
BtSIN(A-B/B»theta) 



3 Epicycloid! 
4 

5 Hvpocycloid: 
6 

7 

8 Theta is the saae rotating angle used to describe a circle. 

9 A and B are the respective radii of a large and siall circle, 

10 one rolling around the other. laagine the one rolling has a 

U pencil attached and that the pencil is tracing a line. This is 

12 the graphic produced by the above foraulas. 

13 EDicycloid=5iall wheel rolling around the ouside of the larger. 

14 Hypocycloid=siall rolling around the inside of the larger. 

15 GT Aor 85 
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SCR 131 



6RIDPL0T DEMO ) BASE->R DECINftL 6RftPHICS2 4 HUE 
DENO 25 CIRCLE ( centered 25 pixel radius circle ) 

-70 25 6 POLY ( 6 side polygon, -70 X axis location ) 
70 25 4 POLY ( 4 side poly is diatond ) 
24 8 SPOKES ( put 8 spokes in circle ) 
UNDRAM 10 8 SPOKES ( erase part of spokes ) DRAM 
-100 -35 200 70 BOK ( to center box, double abs of I's) 
( write text to bit-iapped screen ) 
TBUF 1+ !• PRESS ANY KEY ' ( pad for even char cnt ) 
14 TBUF C! ( store char cnt ) 
24 ( even I'd col ) 20 ( row ) TPUT 
WRITE ( write the text to the screen ) 
KEY ( wait for keypress ) SPLIT ( go to split tode ) 
." Coitand? " ( print a proipt, 32 col screen text ) 
QUIT ; 

DEnO ( execute DEHO iiiediatly ) 



9 

10 
11 
12 
13 
14 

15 R->BASE 



Bryte - 34 

Computer Cowlwys - 26 
Development Associates - 8 
FORML- 11 
FORTH, Inc. - 13 
Forth Interest Group - 17, 24, 40 
Harvard Softworks - 3 1 
Laboratory Microsystems - 37 
MCA - 33 

Miller Microcomputer Services - 32 
Mountain View Press - 6 
Next Generation Systems - 21 
Pair Software - 35 
Silicon Composers - 2 
Vista Technology - 14 



The ProDOS Forth Language implementation for 
the Apple CJomputer / /e, / / c, / / gs and / / / 



FORTH is more than just a high level language that combines many of the features of other computer languages. It is a 
development environment and a method of approaching problem solving. FORTH is a 'grass roots' lanauage, developed and 
enhanced in the real world by working programmers who needed a language that they could USE. Many of the concepts of FORTH 
are several years ahead of other languages of today. It is a language as interactive as Applesoft Basic, yet, unlike Applesoft, you 
don't have to pay the price in slow execution speed. Programs written totally in FORTH are usually faster than programs written in C 
or Pascal and a heck of a lot smaller. Best of all, FORTH has a large library of public domain programs. 

Go FORTH is the new FORTH language implementation tor the Apple® / / e, / / c, / / gs ( / / e emulation mode, full / /gs version 
late Fall ) and the Apple® / / /. It is 100% ProDOS® and SOS ® supported. Go FORTH code is intercompatable with all Go 
FORTH supported machines machines. Go FORTH is for the hobbyist, the systems developer, the applications writer, anyone 
who wants to leam and use the powerful FORTH language. 

Go FORTH comes with its manual and an assortment of utilities in its SCREEN file. Many other utilities and support systems will 
be available soon. For beginners, we highly recommend the Starting Forth manual, and we recommend the Go FORTH Toolkit 
series for everyone! 

ONLY $69.95 Complete, order #5807 

Go FORTH Toolkit #1 (Applsoft-like commands/utilities): $49.95. order #5809 
Starting Forth by Leo Brodie (The training manual for Forth): $21 .95, order #5706 
Add $1 .00 Shipping and handling per item. 

24 HOUR VISA / MASTERCARD ORDER LINES 
California Only: (800)541-0900. Outside California: (800)334-3030. Outside U.S.A. : (619)941-5441 

PAIR SOFTWARE (916)485-6525 
3201 Murchison Way, Carmichael, California 95608 

Apple / / e, / / c, / / gs and / / /, ProDOS and SOS are registered trademarks of Apple Computer, Inc. No affiliation with Pair Software 



Go FORTHT 
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f Continued from page 16.) 



Screen # 6 

( Question 1 options 

: .QIOPTIONS GREED PG 3 TAB 

Diagran Elenents:' CR CR GRAY FG 



jbb 12:16 10/12/86 



jbb 12:16 10/12/86 



1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 



: MATCH 
: HATCHl 
--> 



Centrifugal Force* CR 
Force Nomar CR 
Force Parallel' CR 
Weight" CR 
Weight Norual' CR 
Weight Parallel' CR 
' theta .' (Theta)' CR 
Center of Gravity" CR 
Superelevation Rate (e)" 



>ENTRY-W 



SETUP SLOPE CG-HARK CF-DIAG W-DIAG TAG 'EM 
MATCH .QIOPTIONS ; 



jbb 12:15 10/12/86 ) 
holds correct answer) 



Screen # 8 

( Answer processing 
VARIABLE ANS 
QOESTION ( - ) ." What is letter " ; 
GET-ANS ( - n) |IN ; 
ANSWER ( n - 1 ANS ! ; 

CHECK-ANS ( n - ) ANS j - IF ." WRONG" ELSE ." RIGHT' THEN 
SHOW-ANS ( - 1 CR ." The correct answer is " ANS S . ; 
WAIT ( - ) ." Press a key to continue." KEY DROP ; 
EVALDATE ( - ) GET-ANS CR CHECK-ANS SHOW-ANS CR CR WAIT ; 

-> 

Note: these are "down i dirty' quick deao versions of answer 
processing routines. There are no keyboard error traps or 
variations in feedback. They serve only to illustrate the 
functions for the quiz deao. 



Screen # 7 

( Question 2 options 
: .Q20PTIONS GREEN FG 3 TAB 

Diagram Formulae:" CR CR GRAY FG 

1. W" V2/GR CR 

2. Wv" 253 EMIT ." sin " theta ." / gR " CR 

3. Wv' 253 EMIT ." cos " theta ." / gR ' CR 

4. W" CR 

5. W cos ' theta CR 

6. W sin ' theta CR 

7. arctan e' CR 

8. Center of Gravity' CR 

9. rise per foot " >ENTRY-W ; 

: MATCH2 MATCH ,Q20PTI0NS ; 
-> 



Screen # 9 

( Quiz jbb 12:13 10/12/86 ) 

( find character's position in A$) 
: FINDCHAR ( i - a) 97 + A$ 11 ROT SCAN DROP A$ - ; 

( natch position to answer in ANSWERS) 
: MATCHANSWER ( a - n) 2* ANSWERS t J ANSWER ; 

( Loop 'a" to 'k' finding answer, asking ?, S evaluating) 
: GIVEQUIZ ( - ) 11 

DO I FINDCHAR MATCHANSWER >ENTRY-W QOESTION t 97 + EMIT 
.' ?' CR EVALOATE LOOP ; 

Ql MATCHl GIVEQUI2 ; 
Q2 MATCH2 GIVEQOIZ ; 
QDIZ Ql Q2 ; 



(Continued from page 10.) 



8 

01MAR86RHT 


9 


01I1ARS6RHT 


Test answer by co»paring to reference data. H correct 


A hexadeciial-to-biniry quiz. 




response, increnent question count. H incorrect, show 






correct answer but don't increment count. 


Binary-to-hex adeciial. 




Congratulate for good work in co»plEting conversion quiz. 








How about base 3-ta-base 5? 




Obtain i nuiber and display it to student. Keep a copy for 






subsequent evaluation o4 response. 


Binary-to-Dctal. 




Present a number in output base. Accept answer in input base. 






H correct c'=c+l, else c'=c. 


Octal-to-binary. 




Define a general quiz adiinistrator to present five 






nuibers for conversion. 


Deciial-to-hexadeciial . 




Define a quiz for decinal-to-binary conversion by settnq 


Hexadeciial -to-deci lal . 




data output base to 10 and data input base to 2. 






A binary-to-deciial quiz. 
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(Continued form page 22.) 

and that this is usually known after compar- 
ing just the first character. With the link 
field first, the search routine can access the 
link immediately. Otherwise (except on 
constant-length name field systems), it has 
to AND the length byte with 31, then add 
this to the previous link field to determine 
the location of the current link field. 

3. 6502 fig-FORTH on a Commodore 64, 
8080 fig-FORTH on an Exidy Sorcerer, 
and an ancient, non-standard PDF- 11 ver- 
sion of Forth, so old EMIT was still called 
SPIT. 

4. In my hacking manner, I only recently 
divided SEE into the components I SEE 
and see — it had been just one big word. 
The wisdom of the breakdown became ap- 
parent after reading Thinking Forth, and 
after noting that every so often I needed to 
SEE a word starting somewhere after the 
header. I may yet begin to plan. 



Rich Franzen works as an image 
processor/programmer for Satellite Ex- 
ploration Consultants, Inc., where he 
uses AIMS, a very powerful image proc- 
essing system that is written in an old, 
PDP-11 version of Forth. 




lOTALCONTROL 

with LMI FORTH " 



For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth- 8 3 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: CForth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product Information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Office Box 10430, IVIarina del Rey. CA 90295 
Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Tilisee-Neustadt, 7651-1665 
UK; System Science Ltd., London, 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris. (1) 42.65.95.16 
Japan: Southern Pacific Ltd., Yoitotiama, 045-314-9514 
Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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FIG 

CHAPTERS 



U.SA. 

• ALABAMA 

Huntsville FIG Chapter 

Tom Konantz (205) 881-6483 

. ALASKA 

Kodiak Area Chapter 

Horace Simmons (907) 486-5049 

• ARIZONA 

Phoenix Chapter 

4th Thurs., 7:30 p.m. 

Demiis L. WUson (602) 956-7578 

Tucson Chapter 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Jdbn C. Mead (602) 323-9763 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 

• CALIFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m. 

Hawthorne Public Library 

12700 S. GreviUea Ave. 

PhUlip Wasson (213) 649-1428 

Monterey/Salinas Chapter 

Bud Devins (408) 633-3253 

Orange County Chapter 

4th Wed., 7 p.m. 

Fullerton Savings 

Huntington Beach 

Noshir Jesung (714) 842-3032 

San Diego Chapter 

Thursdays, 12 noon 

Guy Kelly (61 9) 450-0553 

Sacramento Chapter 

4th Wed., 7 p.m. 

1798-59th St., Room A 

Tom Ghomiley (916) 444-7775 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P, Cupertino 

George Shaw (415) 276-5953 

Stockton Chapter 

Doug Dillon (209) 931-2448 



• COLORADO 
Denver Chapter 
1st Mon., 7 p.m. 
Steven Sams (303) 477-5955 



. CONNECTICUT 
Central Connecticut 
Chapter 

Charles Krajewski (203) 344-9996 

• FLORIDA 

Orlando Chapter 

Every other Wed., 8 p.m. 

Hemian B. Gibson (305) 855-4790 

Southeast Florida Chapter 

Coconut Grove area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA. 

Atlanta Chapter 

3rd Tues.,6:30 p.m 
Western Sizzlen, Doraville 
Nick Hennenfent (404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
OakPaik 

Clyde W.Phillips, Jr. 
(312)386-3147 
Central Illinois Chapter 
Urbana 

Sidney Bowhill (217) 333-4150 
Rockwell Chicago Chapter 
Geraid Kusiolek (312) 885-8092 

• INDLVNA 

Central Indiana Chapter 

3id Sat., 10 a.m. 

John Oglesby (317) 353-3929 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff Hall 

Blair MacDemiid (219) 749-2042 

•IOWA 

Iowa City Chapter 
4th Tues. 

Engineering Bldg., Rm. 2128 

University of Iowa 

Robert Benedict (319) 337-7853 



Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 

Iowa State Univ., 214 Comp. Sci. 

Rodrick Eldridge (515) 294-5659 

Fairfield FIG Chapter 

4th day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• KANSAS 

WichiU Chapter (FIGPAQ 
3id Wed., 7 p.m. 
Wilbur E. Walker Co., 
532 Maiket 

Ame Hones (316) 267-8852 

• MASSACHUSETTS 

Boston Chapter 
3id Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 

Detroit/Ann Arbor area 
4th "Diurs. 

Tom Chrapkiewicz (313) 322- 
7862 

• MINNESOTA 

MNFIG Chapter 
Minneapolis 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall, Univ. of MN 
Fred Olson (612) 588-9532 



• MISSOURI 

Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 
St Louis Chapter 
1st Tues., 7 p.m. 
Thomhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
Ellisville, MO 63011 

•NEW JERSEY 

New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Uidi (201) 338-9363 



• NEW MEXICO 

Albuquerque Chapter 
1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Biyan (505) 298-3292 

• NEW YORK 

FIG, New York 
2nd Wed.. 7:45 p.m. 
Manhattan 

Ron Martinez (212) 866-1 157 

Rochester Chapter 

4th Sat., 1 p.m. 

Monroe Conun. College 

Bldg. 7, Rm. 102 

Frank Lanzafame (716) 235-0168 

Syracuse Chapter 

3id Wed., 7 p.m. 

Heniy J. Fay (315) 446-4600 

. NORTH CAROLINA 
Raleigh Chapter 

Frank Bridges (919) 552-1357 

• OHIO 

Akron Chapter 

3rd Mon., 7 p.m. 

McDowell Library 

Thomas Franks (216) 336-3 167 

Athens Chapter 

IstealUrieU (614) 594-3731 

Cleveland Chapter 

4th Tues., 7 p.m. 

Chagrin Falls Library 

Gary Bergstrom (216) 247-2492 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 p.m. 

CFC. 11 W. Monument Ave., 

#612 

Gary Granger (513) 257-6984 

• OKLAHOMA 

Central Oklahoma Chapter 
3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Contact Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 731 12 



• OREGON 

Greater Oregon Chapter 
Beaverton 
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2nd Sat., 1 p.m. 
Tektronix Industrial Park, 
Bldg. 50 

Tom Almy (503) 692-2811 
Willamette Valley Chapter 
4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-5 1 13 

PENNSYLVANIA 
Philadelphia Chapter 

4th Sat., 10 a.m. 

Diexel University, Stratton Hall 

Melanie Hoag (215) 895-2628 

TENNESSEE 
East Tennessee Chapter 
Oak Ridge 
2nd Tues., 7:30 p.m. 
Sci. AppL Intl. Corp., 8th Fl. 
800 Oak Ridge Tumpike, 
Richard Secrist (615) 483-7242 

•TEXAS 
Austin Chapter 
Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 
Dallas/Ft. Worth 
Metroplex Chapter 
4th Thurs., 7 p.m. 
Chuck Durrett (214) 245-1064 
Houston Chapter 
1st Mon., 7 p.m. 
Univ. of St. Thomas 
Russel Harris (713) 461-1618 
Periman Basin Chapter 
Odessa 

Carl Bryson (915) 337-8994 

•UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 

. VERMONT 

Vermont Chapter 

Vergennes 

3rd Mon., 7:30 p.m. 

Vergennes Union High School 

Rm. 210,MonktonRd. 

Don VanSyckel (802) 388-6698 



• VIRGINU 

First Forth of Hampton 
Roads 

William Edmonds (804) 898-4099 

Potomac Chapter 

Arlington 

2nd Tues., 7 p.m. 

Lee Center 

Lee Highway at Lexington St. 

Joel Shprentz (703) 860-9260 

Richmond Forth Group 

2nd Wed., 7 p.m. 

154 Business School 

Univ. of Richmond 

Donald A. FuU (804) 739-3623 



• WISCONSIN 

Lake Superior FIG Chaptw 
2nd Fri., 7:30 p.m. 
Main 195, UW-Superior 
Allen Anway (715) 394-8360 
MAD Apple Chapter 
Contact BiU Hortoo 
502 Atlas Ave. 
Madison, WI 53714 
Milwaukee Area Chapter 
Donald Kimes (414) 377-0708 

INTERNATIONAL 

• AUSTRALIA 

Melbourne Chapter 
1st Fri., 8 p.m. 
Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 
Sydney Chapter 
2nd Fri., 7 p.m. 

John Goodsell Bldg., Rm. LG19 
Univ. of New South Wales 
Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 
4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120Schoten 
03/658-6343 

Southern Belgium Chapter 
Contact Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 

Northern Alberta Chapter 

4th Sat., 1 p.m. 

N. Alu. Inst, of Tech. 

Tony Van Muyden (403) 962-2203 

Nova Scotia Chapter 

Halifax 

Howard Harawitz (902) 477-3665 
Southern Ontario Chapter 
(Quarterly, 1st Sat., 2 p.m. 
Genl. Sci. Bldg., Rm. 212 
McMaster University 
Dr. N. Solntseff (416) 525-9140 
ext. 3 

Toronto Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 
Vancouver Chapter 
Don Vanderweele (604) 941-4073 

• COLOMBU 

Colombia Chapter 

Contact Luis Javier Pana B. 
Aptdo. Aereo 100394 
Bogota 214-0345 



• DENMARK 

Forth Interesse Gruupe 
Denmark 

Copenhagen 

Erik Oestergaard, 1-520494 

. ENGLAND 

Forth Interest Group- U.K. 

London 

1st Thurs., 7 p.m. 
Polytechnic of South Bank 
Rm. 408 
Borough Rd. 
Contact D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 



• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 

77 Rue du Cagire 

31100 Toulouse 

(16-61)44.03.06 

FIG des Alpes Chapter 

Annely 

Georges Seibel, 50 57 0280 

. GERMANY 

Hamburg FIG Chapter 
4th Sat., 1500h 

Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 

. HOLLAND 
Holland Chapter 

Contact Adriaan van Roosmalcn 
Heusden Houtsestraat 134 
4817 We Breda 
3176713104 

• IRELAND 
Irish Chapter 

Contact Hugh Dobbs 
Newton School 
Waterford 

051/75757 or 05 1/74124 



•ITALY 
FIG lUIIa 

Contact Marco Tausel 
Via Gerolamo Fomi 48 
20161 Milano 
02/435249 



• JAPAN 

Japan Chapter 

Contact Toshi Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo,Bunkyo 113 
812-2111 ext. 7073 



• REPUBLIC OF CHINA 

(R.O.C.) 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 

• SWEDEN 

Swedish Chapter 

Hans Lindstrom, 46-31-166794 

• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 BruttiseUen 

01/833-3333 



SPECIAL GROUPS 

• Apple Corps Forth Users 

Chapter 

Ut& 3rd Tues., 7:30 p.m. 
1515 Sloat Boulevard, #2 
San Francisco, CA 
Dudley Ackerman 
(415) 626-6295 

• Baton Rouge Atari Chapter 

Chris Zielewski (504) 292-1910 

• FIGGRAPH 

Howard Pearlmutter 
(408) 425-8700 

• NC4000 Users Group 

John Carpenter (415) 960-1256 



• NORWAY 

Bergen Chapter 

Kjell Birger Faeraas, 47-518-7784 
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ANNOUNCING 



FORTH INTEREST GROUP 

ROUNDTABLE 



NOW AVAILABLE 



THROUGH 




INFORMATION 
SERVICES 



(JSA 



GEnic 




General Electric Network for Information Exchange 



* OVER 400 DOWNLOADABLE FILES OF FORTH INFORMATION & CODE 



* ON-LINE REAL TIME CONFERENCING 



* E-MAIL CONTACT WITH OTHER FIG MEMBERS 



SPECIAL SIGN-UP FOR FIG MEMBERS ONLY 

$18.00 

Includes GEnie Manual plus 3 FREE Hours on GEnie 

Using Your Modem Call 1-800-638-8369, Type "HHH" (CR) 
Following the U# prompt, type "XJM11849,GENIE" (CR) 

See Page 17 For Details 



Forth Interest Group 

P.O.Box 8231 

San Jose, CA 95155 



